>
>I'm trying to write a script that will append a few chars (example _fr) to
>the end of the "prefix" filename. All the filenames I need to change end with
>.properties. I need to have this script descend into all subdirs of the dir
>specified at the command line.
>
Hello,
Hope codes below can help you.
use File::Find;
my @dirs = ('/your/path');
find(\&wanted, @dirs);
sub wanted {
if (/^.*\.properties$/) {
rename $_, $_ . '_fr';
}
}
__END__
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
