[ale] script or app to set all files to lower case

[kenry at alexandertech.biz (Ken Alexander)]

I think this should work. 

#!/usr/bin/perl

use File::Find;
sub wanted {
          /[A-Z]/ &&
           print $_  . " - ". lc($_) . "\n";
          rename($_, lc($_));
}
finddepth(\&wanted, '/rootDirectory/path' );


On Mon, 2007-08-27 at 20:13 -0400, James Taylor wrote:

> I need to convert a volume with several hundred thousand files with mixed case file names to all lower case.
> 
> Any suggestions for a quick, fast and easy utility to accomplish this?
>  -jt
> 
> 
> 
> James Taylor
> The East Cobb Group, Inc.
> 678-697-9420
> james.taylor at eastcobbgroup.com
> http://www.eastcobbgroup.com
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> _______________________________________________
> Ale mailing list
> Ale at ale.org
> http://www.ale.org/mailman/listinfo/ale
-------------- next part --------------
An HTML attachment was scrubbed...