File::Recurse可以對在樹中的每一個檔案和目錄進行遞迴操作，並且對每一個找到的檔案和目錄呼叫使用者支援的副常式(File::Find模組也有相同的功能)。
以下示範清除不要的副檔名檔案
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裡似乎找不到這個模組

arrow
arrow
    全站熱搜

    jck11 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄