Vixual

刚刚在测试 Perl 用来删除目录的指令时，想说找找看有没有比较狠的方法，果然马上就让我看到这一篇的这一个副程式:

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

这个副程式以递回方式执行，可以删除指定路径下的所有目录及档案。

果然，真正 Perl 的高手写程式根本不用几行指令，就可以杀人于无形!