linux-l: TEXT <--> text

[Carsten Paeth]

> 
> Hi,
> 
> ich brauche ein Script/Programm o.=E4. welches rekursiv durch ein
> Verzeichnis hangelt und mir wahlweise die Files von Gro=DFbuchstaben in=
> 
> Kleinbuchstaben resp. umgekehrt wandelt. Hat da jemand eine Idee ?
> 
> Carsten.
> 

find ..... -type f -print | tou.pl
oder
find ..... -type f -print | tol.pl

tou.pl:
---------------------------------
#!/usr/bin/perl
while (<>) {
   chomp;
   /(.*)\/([^\/]*)/;
   $dir = $1;
   $nbase = $base = $2;
   $nbase =~ tr [a-z] [A-Z];
   if (rename($dir/$base $dir/$nbase)) {
      print STDERR "$0: failed to rename $dir/$base to $dir/$nbase\n";
   }
}
--------------------------------
tol.pl:
---------------------------------
#!/usr/bin/perl
while (<>) {
   chomp;
   /(.*)\/([^\/]*)/;
   $dir = $1;
   $nbase = $base = $2;
   $nbase =~ tr [A-Z] [a-z];
   if (rename($dir/$base $dir/$nbase)) {
      print STDERR "$0: failed to rename $dir/$base to $dir/$nbase\n";
   }
}

calle