[Perl]刪除指定路徑下的所有目錄及檔案 (遞迴)

剛剛在測試 Perl 用來刪除目錄的指令時,想說找找看有沒有比較狠的方法,果然馬上就讓我看到這一篇的這一個副程式:

sub rmdashrf{ 
    foreach (<$_[0]/*>){ 
        rmdashrf($_) and rmdir if(-d); 
        unlink if(-f or -l); 
    } 
    1; 
} 
rmdashrf("/tmp/test");

這個副程式以遞迴方式執行,可以刪除指定路徑下的所有目錄及檔案。

果然,真正 Perl 的高手寫程式根本不用幾行指令,就可以殺人於無形!

  1. No comments yet.

  1. No trackbacks yet.

return top

%d 位部落客按了讚: