Hi all,
I wan't to change name of all the files in a directory(incluing sub
directorys) to lowercase.
the code:
-------------------------------------------
use File::Find;
$rootDir='.';
find (\&lowerCase, $rootDir);
find (sub{print "$File::Find::name\n"}, $rootDir);
sub lowerCase {
$oldName = "$File::Find::name";
$newName = "\L$File::Find::name";
print (rename ($oldName, $newName));
print " rename result: \"$oldName\" - \"$newName\"\n";
};
-------------------------------------------
But it only works for files in the top directory("."), and no effect to
all other files in sub directorys. Any help?
I'm a beginner. If it's a stupid question for you, please don't hit me!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
