On Fri, Dec 07, 2001 at 11:41:05AM -0500, McCarney, wrote:
> Ok team, here's the deal.
> I am *not* a programmer or a sysadmin, so be gentle. ;)
>
> Here is the code--checked it out in perldoc -q. Wow, it works...
> My platform: Windows 2000
>
> #! perl -w
> use strict;
> use File::Copy;
opendir (I,'somedir') or die "Ack $!\n";
for (grep{ /nm.*\.html/ }readdir I){
s/\..*//; # remove suffix
> move("$_.txt", "$_.txt");
}
>
> That's great, but I have umpteen scores of files that are named nm*.html and
> nm*.gif.
You want to change the names of gifs too?
grep /nm.*\.(gif)|(html)/
for recursing dirs try Find::File
> Stumped and need some advice please...
> BTW: I get the list in digest format, so if you do reply please 'cc' me.
Noted ;0)
--
Frank Booth - Consultant
Parasol Solutions Limited.
(www.parasolsolutions.com)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
