Re: open file for read/write

[l.frankline]

open(FH, "+<", "$filename") or die "Opening: $!";
@ARRAY = <FH>;
# change ARRAY here
seek(FH,0,0) or die "Seeking: $!";

    for($i=0;$i<=$#ARRAY;$i++)
    {
        $line = $ARRAY[$i];
        $line=~s#find#replace#;
        $ARRAY[$i] = $line;
    }

print FH @ARRAY or die "Printing: $!";
truncate(FH,tell(FH)) or die "Truncating: $!";
close(FH);

regards
Franklin

[VSarkiss]

Minor nit, but a C-style for loop like that is really unnecessary here. You can do:

for $elem (@ARRAY)
{
    $elem =~ s#find#replace#;
}

Or even more concisely:

s#find#replace# for @ARRAY;