in reply to (golf) Recursively delete empty directories from a tree

Requirements are to take a list of root dirs on the command line, delete any empty dirs {...} and the code need not worry about circular directories due to symlinks or the like.

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 ]