eg/rename


1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl

($op = shift) || die "Usage: rename perlexpr [filenames]\n";
if ($#ARGV < 0) {
    @ARGV = <stdin>;
    chop(@ARGV);
}
for (@ARGV) {
    $was = $_;
    eval $op;
    die $@ if $@;
    rename($was,$_) unless $was eq $_;
}