perl怎样批量修改文件名

在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。请注意在运行代码之前做好文件备份以防意外情况产生。