批量更改文件夹下（包括子文件夹）所有文件的后缀
时间：2008-10-27 来源：buber
批量更改C:\Documents and Settings\Administrator\桌面\text\ 下所pdf文件,我们将他们的后缀改为txt
use File::Find;
my @search=("C:\\Documents and Settings\\Administrator\\桌面\\text ");
find(\&wanted,@search);
sub wanted
{
my $file=$File::Find::name;
if(-f $file)
{
if($file=~m/\.pdf$/)
{
my $newfile=$file;
$newfile=~s/\.pdf/\.txt/;
rename($file,$newfile);
}
} }
{
my $file=$File::Find::name;
if(-f $file)
{
if($file=~m/\.pdf$/)
{
my $newfile=$file;
$newfile=~s/\.pdf/\.txt/;
rename($file,$newfile);
}
} }
相关阅读 更多 +
