perl更改当前文件夹下的文件名

更改当前文件夹下面以 "I"开头的文件名为小写"i".

#!/usr/bin/perl -w

foreach my $file (glob "I*"){
my $newfile = $file;
$newfile =~ s/^I/i/;
if (-e $newfile) {
warn "can't rename $file to $newfile: $newfile exists ";
} elsif (rename $file, $newfile) {
} else {
warn "rename $file to $newfile failed:$! ";
}
}

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/312079/viewspace-245689/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/312079/viewspace-245689/