Re: Modify file without any temp variable

[gopalr]

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

[Pied]

This is bad ! If the new text is shorter than the old one, the file is not truncated, and you happen to have some extra dirt at the end of the file ! (took me quite some time to figure it out)

P!