perl更改當前資料夾下的檔名

tonykorn97發表於2007-06-20
更改當前資料夾下面以 "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/，如需轉載，請註明出處，否則將追究法律責任。

相關文章