I have about 400 text files I need to replace the contents. All files are in the current directory as the perl script runs out of
my $newText = "This is my new text.. anybody's text goes here";
open(INFILE, $plants)
while (<>)
{
print $newText;
}
I need help..
Thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
