File::Recurse可以對在樹中的每一個檔案和目錄進行遞迴操作,並且對每一個找到的檔案和目錄呼叫使用者支援的副常式(File::Find模組也有相同的功能)。
以下示範清除不要的副檔名檔案
ps.activeperl裡似乎找不到這個模組
以下示範清除不要的副檔名檔案
use File::Recurse;
use strict;
my $kill_rx=q(\.obj$|\.pch$|\.pdb$);
my $dir=shift || '.';
recurse(\&maybe_kill_file, $dir);
sub maybe_kill_file{
return if -d $_;
if(/$kill_rx/i){
unlink $_ || warn "couldn't remove $_: $!\n";
}
}
ps.activeperl裡似乎找不到這個模組
全站熱搜
留言列表