Perl -重命名目录中的图像文件

#!/usr/bin/perl

use strict;
use warnings;
use File::Copy;

# 指定目录路径
my $dir = '/path/to/directory';

# 打开目录
opendir(my $dh, $dir) or die "无法打开目录: $!";

# 遍历目录中的文件
while (my $file = readdir($dh)) {
    # 忽略当前目录和上级目录
    next if ($file eq '.' or $file eq '..');

    # 判断文件是否为图像文件
    if ($file =~ /\.(jpg|jpeg|png|gif)$/i) {
        # 构建新的文件名
        my $new_name = "new_" . $file;

        # 重命名文件
        move("$dir/$file", "$dir/$new_name") or die "无法重命名文件: $!";
        print "已重命名文件: $file\n";
    }
}

# 关闭目录
closedir($dh);