Commit | Line | Data |
---|---|---|
a687059c | 1 | #!/usr/bin/perl |
2 | ||
3 | ($op = shift) || die "Usage: rename perlexpr [filenames]\n"; | |
9f68db38 | 4 | if (!@ARGV) { |
5 | if (-t) { | |
6 | @ARGV = <*>; | |
7 | } | |
8 | else { | |
9 | @ARGV = <STDIN>; | |
10 | chop(@ARGV); | |
11 | } | |
a687059c | 12 | } |
13 | for (@ARGV) { | |
14 | $was = $_; | |
15 | eval $op; | |
16 | die $@ if $@; | |
17 | rename($was,$_) unless $was eq $_; | |
18 | } |