Home | About Me | Photos | Writing | Research | Scratchpad | Projects

prename


#!/usr/bin/perl -w

($op = shift) || die "Usage: rename perlexpr [filenames]";


for (@ARGV)
{
        $was=$_;
        eval $op;
        die [email protected] if [email protected];
        rename($was,$_) unless $was eq $_;
}