Useful Perl one-liners (2013)

Re:Useful Perl one-liners (2013) by 0xmohit on Tuesday November 29, 2016 @01:28PM (#13065023)

  # delete a bunch of matching files and print the name
  find . -name whatever\* -type f | perl -ne 'print;chomp;unlink'

Can't you use `rm` instead (ask it to be verbose):

  find . -name whatever\* -type f -exec rm -v -- {} \;

[ Parent | on HN ]

Re:Useful Perl one-liners (2013) by tyingq on Tuesday November 29, 2016 @01:36PM (#13065124)

You can...it spawns a lot of processes.

And typically, I'm doing more than 'print;chomp;unlink'. Maybe renaming files from <pattern>.foo to <pattern>.bar or whatever.

[ Parent | on HN ]

Re:Useful Perl one-liners (2013) by emmelaich on Tuesday November 29, 2016 @11:10PM (#13068426)

You should use the -delete predicate/arg to find to delete things if your find has it.

To avoid race conditions.

[ Parent | on HN ]