Another option which occurred to me - there's no reason to replace text
line-by-line here. You could write:
$text = <INFILE>;
$text ~- s/$oldnodename/$curnodename/g;
print OUTFILE $text;
Although I agree with Alejandro... if your file is gigabyte-sized, you
will probably want to go back to the while loop. But that' s more of a
limitation of the operating system than of your program. I mean, it's
supposed to be caching reads and writes, no?
--
Lyle Kopnicky
Software Project Engineer
Veicon Technology, Inc.
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
