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/


Reply via email to