Perl Mgmt Tips: rename file

我在网上下载一些书籍是用rar切割成的一些rar文件，例如下载的文件是

20060601＝FILEpart01.rar

20067802＝FILEpart02.rar

20062303＝FILEpart03.rar

而要快速解压，要把这些文件名改成

FILEpart01.rar

FILEpart02.rar

FILEpart03.rar

然后解压part01就可以，他会自动找同名的part02，part03...解压，然后output一个chm或pdf。

我试过下载了30多个切割的人间，part01, part02, ... part30, part31。

这样一个一个人手改文件名很麻烦。

所以，是perl出场的时候了。

#! perl

$dirname = shift @ARGV || ".";

opendir(DIR, $dirname) or die "can't open $dirname: $!";

while ( defined($file = readdir(DIR)) ) {
 next if $file !~ //.rar/;

 $newf = $file;
 $newf =~ s/(.*=)//;
 rename($file, $newf);
 print $file, " => ", $newf, "/n";
}