[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 位部落客按了赞: