#!/usr/local/bin/perl -w
# rename - Larry's filename fixer, enhanced to print actions performed
# Andrew Ho (andrew@zeuscat.com)

require 5.005;
use strict;
$| = 1;

use vars qw($DEBUG);
$DEBUG = 0;

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

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

exit 0;