在Perl中批量修改文件名可以通過使用rename函數來實現。下面是一個簡單的示例代碼，用于將指定目錄下所有文件的后綴名從.txt修改為.dat：
use strict;
use warnings;
my $dir = '/path/to/directory/';
opendir(my $dh, $dir) or die "Cannot open directory: $!";
while (my $file = readdir($dh)) {
next if $file =~ /^\./; # skip hidden files
next unless $file =~ /\.txt$/; # only process files with .txt extension
my $old_name = $dir . $file;
my $new_name = $file;
$new_name =~ s/\.txt$/.dat/;
rename($old_name, $dir . $new_name) or die "Cannot rename file: $!";
}
closedir($dh);
請將上述代碼中/path/to/directory/替換為要修改文件名的目錄路徑，然后運行這段代碼即可將所有.txt文件的后綴名修改為.dat。請注意在運行代碼之前做好文件備份以防意外情況發生。
