perl批量改文件后缀
perl批量改文件后缀
如题，perl批量改文件后缀，将已有的统一格式的文件后缀，修改为新的统一的文件后缀。
#!/bin/perl
use 5.010;
print "Please input file suffix which U want to rename!\n";
chomp (my $suffix_old = <>); # 去除输入中的回车符
print "Please output file suffix which U want to rename!\n";
chomp (my $suffix_new = <>);
foreach my $file(glob "*.$suffix_old") {
my $new_file = $file;
$new_file =~ s/\.$suffix_old/.$suffix_new/gm;
if (-e $new_file) {
warn "Cannot rename $file to $new_file: $new_file exists\n";
} elsif (rename $file => $new_file) {
} else {
warn "rename $file to $new_file failed:$!";
}
}