The easy way: there's some File module on CPAN that might do this.

My way:
In order to go through multiple folders you would need a loop of some
sort. If you intend to go into folders recursively (open all the
folders inside all the folders inside ... ) you probably need a
recursive function.
You can tell Perl to open all the contents of a folder and check if it
is a directory or a file (-d or -f). If it is a directory, you
recurse. If it is a file, you can use a RegEx to check if it has
"TEST" and to remove it.
The rename function will rename files for you.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to