Here is a very simple but efficient solution inspired by this article:
|
1 |
find | grep imdb | perl -ne 'chomp; next unless -e; $orig = $_; $move = 0; if (s/imdb_13/imdb13/) { print "move $orig to $_ ...\n"; system "mv $orig $_"; }' |
Perl Oneliner: rename files in directory recursively
Published by
