in reply to Modify file without any temp variable
Hi
use strict; my $ou; open(JE, "+<c:\\tuls\\tuls.txt"); while(<JE>) { $_=~s/findtext/changetext/g; $ou.=$_; } seek(JE, 0, 0); print JE $ou; close JE
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Modify file without any temp variable
by Pied (Monk) on Jun 20, 2007 at 23:10 UTC |
In Section
Seekers of Perl Wisdom