Mega Code Archive
Find file
<![CDATA[
#!/usr/bin/perl
use warnings;
use strict;
use File::Find;
use File::Copy;
die "Usage: $0 <dir> [<dir>...] \n" unless @ARGV;
foreach (@ARGV) {
die "'$_' does not exist \n" unless -e $_;
}
sub lcfile {
print "$File::Find::dir - $_ \n";
move ($_, lc $_);
}
finddepth (\&lcfile, @ARGV);
]]>