Re: Automate UPPER to lower case directory

[Joerg Plate <plate@psyche.kn-bremen.de>]

1> cat /usr/local/bin/rename
#!/usr/bin/perl -Tw
use locale;
# usage: rename perlexp [files]
($op = shift) || die "Usage: $0 perlexp [filenames]\n";
if (!@ARGV) { @ARGV = <STDIN>; chop(@ARGV); }

for (@ARGV) {
  $old = $_;
  eval $op;
  die $@ if $@;
  $new = $_;
  next if $old eq $new;
  next if -e $new;
  rename($old,$new) || die "$0: cannot rename $old to $new: $!\n";
}

1> rename "y/A-Z/a-z/" *

-- 
"i'm working on it"