Clear questions and runnable code get the best and fastest answer |
|
PerlMonks |
Re3: Changing file names as they are uploadedby blakem (Monsignor) |
on Sep 19, 2002 at 11:50 UTC ( [id://199148]=note: print w/replies, xml ) | Need Help?? |
How about:
It will exclude the extension from the substitution. Update: Fixed bug for filenames w/o extensions that end in a nonword char. Update2: Thought I'd golf this one a bit: works correctly for $files such as "me~swimming.jpg", "J.R,ewing.jpg" and "abc;;;" -Blake
In Section
Seekers of Perl Wisdom
|
|