Listing 3. Renaming files from aaa to bbb
> find . | perl -ne'chomp; next unless -e; $oldname = $_; s/aaa/bbb/; next if -e; rename $oldname, $_' |
Cultured Perl: One-liners 101
Perl as a command-line utility
Listing 3. Renaming files from aaa to bbb
Perl as a command-line utility
> find . | perl -ne'chomp; next unless -e; $oldname = $_; s/aaa/bbb/; next if -e; rename $oldname, $_' |