Makefile: add pickrand
[cmccabe-bin] / renamer.pl
1 #!/usr/bin/perl
2
3 $op = shift or die $help;
4 chomp(@ARGV = <STDIN>) unless @ARGV;
5 for (@ARGV) {
6     $was = $_;
7     eval $op;
8     die $@ if $@;
9     rename($was,$_) unless $was eq $_;
10 }