in reply to (golf) Recursively delete empty directories from a tree
It's often seen as bad form to invoke a lot of system commands which are likely to fail, but it seems to me that with these requirements, I could just rmdir() everything in sight, and if it failed to rmdir, then it was clearly not a leaf directory.
@_=@ARGV; push@_,glob("$_/*")for@_; @_=grep{-d}reverse@_; $t=@_;rmdir$_&&$d++for@_; print"D:$d F:",$t-$d,$/;
Update: added the requisite reporting, though still not trying very hard to reduce my handicap.
I did notice that glob("$_/*") appeared to break on directory names with spaces in them, at least here at work across a Samba-supplied directory. I haven't looked into that further.
--
[ e d @ h a l l e y . c c ]
|
|---|