Rename files w/ regexes.

rename.md

Rename

Rename files with regular expressions. A filename fixer utility courtesy of Larry Wall.

Usage

rename expr [files]

Examples

rename \'s/\.orig\$//\'  *.orig
rename \'tr/A-Z/a-z/ unless /^Make/\'  *
rename \'\$_ .= \".bad\"\'  *.f
rename \'print \"\$_: \"; s/foo/bar/ if <STDIN> =~ /^y/i\'  *
find /tmp -name \'*~\' -print | rename \'s/^(.+)~\$/.#\$1/\'

rename.pl

#!/usr/bin/perl -w

# rename - filename fixer utility courtesy of Larry Wall

$examples = "
EXAMPLES:
 rename \'s/\.orig\$//\'  *.orig
 rename \'tr/A-Z/a-z/ unless /^Make/\'  *
 rename \'\$_ .= \".bad\"\'  *.f
 rename \'print \"\$_: \"; s/foo/bar/ if <STDIN> =~ /^y/i\'  *
 find /tmp -name \'*~\' -print | rename \'s/^(.+)~\$/.#\$1/\'
";

$op = shift or die "USAGE: rename expr [files]\n" . $examples;
chomp(@ARGV = <STDIN>) unless @ARGV;
for (@ARGV) {
    $was = $_;
    eval $op;
    die $@ if $@;
    rename($was, $_) unless $was eq $_;
}