Re: open file for read/write

in reply to open file for read/write

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);
[download]

regards
Franklin

Don't put off till tomorrow, what you can do today.

Comment on Re: open file for read/write Download Code

Replies are listed 'Best First'.
Re^2: open file for read/write by VSarkiss (Monsignor) on Dec 08, 2005 at 15:20 UTC
Minor nit, but a C-style `for` loop like that is really unnecessary here. You can do: `for $elem (@ARRAY) { $elem =~ s#find#replace#; }` [download] Or even more concisely: `s#find#replace# for @ARRAY;` [download] Do not rebuke them with harsh words ... but rather lead them gently - with URLs - so that they may learn wisdom.	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom