#!/usr/bin/perl -w
# rclocasr      --crb3 06Dec06  cleanup nonprototyping
# locaser.pl    --crb3 16mar98
# rcrsr.pl      --crb3 16mar98
#
# recursive lowercaser, raw core for other recursions
#
$chatty=0;
$safety=0;
#
use Cwd;

&dive;

sub dive {
  $dir = cwd();
  print "---",$dir,":\n" if $chatty;
  for( <*> ) {
    if(-d ) {
      print $_,"\n" if $chatty;
      chdir $_;
      &dive;
    }
    if ( -f lc $_ or -d lc $_ ) {
      print "Couldn't locase ", $_, ", one exists already.\n" if $chatty;
    }elsif (-f or -d) {
      print $_, " becomes ", lc $_, "\n" if $chatty;
      rename($_ , lc($_)) unless $safety;
    }
  }
  chdir "..";
}

 Grab a
gzipped
copy
here
 
Syntax highlighting using Syntax::Highlight::Engine::Kate