#!/usr/local/bin/perl -w

# rename - Larry Wall's rename, modified to add logging
# Andrew Ho (andrew@zeuscat.com)

use strict;
$| = 1;

my $op = shift or die "Usage: rename expr [files]\n";
unless(@ARGV) {
    print STDERR "enter filenames to rename...\n";
    chomp(@ARGV = <STDIN>);
}

for(@ARGV) {
    my $was = $_;
    eval $op;
    die $@ if $@;
    if ($was ne $_) {
        print 'RENAME ', $was, ' => ', $_, "\n";
        rename($was, $_);
    } elsif (defined $_) {
        print 'NORENAME ', $was, "\n";
    } else {
        print 'UNDEFINED ', $was, "\n";
    }
}
exit 0;