On Sep 11, 2007, at 9:43 PM, Gerald Wheeler wrote:
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..
You mean $newText contains the whole content of a single file, and
the 400 files end up having that very same content (that is $newText)?
-- fxn
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/