批量重命名

foreach my $file(glob "*.old"){

my $newfile =~ s/\.old$/.new/;

if (-e $newfile){

warn "can't rename $file to $newfile:$newfile exists\n";

}elsif(rename $file,$newfile){

#改名成功，什么都不需要做

}else{

warn "rename $file to $newfile failed:$!\n";

}

}

via 小骆驼 p210