4 ms·
Isn't that just "rm -rv *"? The original spec was to only delete files, not directories - and only those matching a given pattern, at that. Also, I think yours
by EvilTerran 10y ago
Isn't that just "rm -rv *"? The original spec was to only delete files, not directories - and only those matching a given pattern, at that.
Also, I think yours would go into an infinite spin if it met a symlink loop (say, "ln -s . foo") - File::Find is hardened against that kinda shenanigans.
- a_gopher 10y agofair. not quite so pretty now... perl -E 'for(@ARGV){say,unlink for<$_/whatever*>;push@ARGV,($_)x(-d^-l)for<$_/*>}' .