Forgot to log in initially
#!wperl
use IO::File;
use strict;
my $dir = $ARGV[0];
chomp($dir);
$dir =~ s{\\}{\\\\}g;
Recurse($dir);
sub Recurse
{
my $handle = shift;
opendir(SPROUT,$handle);
my @entries = readdir(SPROUT);
closedir(SPROUT);
foreach my $i (2..scalar(@entries))
{
my $param_handle = $handle."\\".$entries[$i];
if(opendir(TEST,$param_handle) and $entries[$i])
{
closedir(TEST);
$handle =~ s{\\\\}{\\}g;
my ($newdirname)= $handle."\\".$entries[$i];
$newdirname =~ s/^([a-z])/\u$1/g;
rename ($handle."\\".$entries[$i], $newdirname);
Recurse($newdirname);
}
elsif ($entries[$i])
{
my ($newname) =$handle."\\".$entries[$i];
$newname =~ s/^([a-z])/\u$1/g;
rename ($handle."\\".$entries[$i], $newname);
}
}
}
And it doesn't seem to capitalise the first letter of dirs, and files... Could it be something else in the script?
cheers
ant