[Perl]刪除指定路徑下的所有目錄及檔案 (遞迴)
剛剛在測試 Perl 用來刪除目錄的指令時，想說找找看有沒有比較狠的方法，果然馬上就讓我看到這一篇的這一個副程式:
sub rmdashrf{
foreach (<$_[0]/*>){
rmdashrf($_) and rmdir if(-d);
unlink if(-f or -l);
}
1;
}
rmdashrf("/tmp/test");
這個副程式以遞迴方式執行，可以刪除指定路徑下的所有目錄及檔案。
果然，真正 Perl 的高手寫程式根本不用幾行指令，就可以殺人於無形!
No comments yet.