Useful Perl one-liners (2013)

Re:Useful Perl one-liners (2013) by EvilTerran on Tuesday November 29, 2016 @06:11PM (#13067001)

> there must be a Perl golfer somewhere around here who does …

Hello!

    perl -MFile::Find -e 'find sub{if(-f&&/^whatever/){say$File::Find::name;unlink}},"."'

You might even be able to do 'find{...}"."' (no "sub" or ","), but I don't have perl on my phone to test that ;)

[ Parent | on HN ]

Re:Useful Perl one-liners (2013) by a_gopher on Tuesday November 29, 2016 @06:43PM (#13067222)

  perl -E 'sub x{say;for(<$_/*>){&x;unlink}};x for@ARGV' *

  perl -E 'push@ARGV,<$_/*>for@ARGV;say,unlink for@ARGV' *

[ Parent | on HN ]

Re:Useful Perl one-liners (2013) by EvilTerran on Wednesday November 30, 2016 @04:48AM (#13069534)

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.

[ Parent | on HN ]

Re:Useful Perl one-liners (2013) by a_gopher on Wednesday November 30, 2016 @06:20PM (#13075600)

fair. not quite so pretty now...

  perl -E 'for(@ARGV){say,unlink for<$_/whatever*>;push@ARGV,($_)x(-d^-l)for<$_/*>}' .

[ Parent | on HN ]