Re: Re: Daft Regexp

Yup that's it
i was regexping the path with file, not the file then adding on the path so

   
my ($newname) =$handle."\\".$entries[$i];
$newname =~ s/^([a-z])/\u$1/g;
rename ($handle."\\".$entries[$i], $newname);
[download]

becomes

my ($newname) =$entries[$i];
$newname =~ s/^([a-z])/\u$1/g;
rename ($handle."\\".$entries[$i], $handle."\\".$newname);
[download]

cheers for that, it's always simple things that mess up the most!

Comment on Re: Re: Daft Regexp Select or Download Code

Replies are listed 'Best First'.
Re^3: Daft Regexp by Aristotle (Chancellor) on Aug 05, 2003 at 17:46 UTC
What about what Cody Pendant carefully hinted at? `my $newname = ucfirst $entries[$i]; rename ($handle."\\".$entries[$i], $handle."\\".$newname);` [download] Makeshifts last the longest.	[reply] [d/l]
Re: Re^3: Daft Regexp by fourmi (Scribe) on Aug 06, 2003 at 13:09 UTC
erm i had a look in the o'reily book, and didn't see a reference to ucfirst, and becuase i'm doing a couple of other substitutions too, prefered to find why my effort didn't work, byt the looks of it, his code work wook too though! but would have had the samne stumbling block as mine ended up having.. cheers ant	[reply]