Perl and seek() function

ivanatora · 01-25-2005, 08:35 AM

I need to append some vars in the beggining of the file. I did that:

Code:

$file = "seek.dat";
$m = <STDIN>;
open (F,">> $file");
seek (F,0,0);
print F $m;
close (F);

That appended $m at the end of the file, despite what the documentation say about the seek() function. Where is my mistake?

bigearsbilly · 01-26-2005, 07:33 AM

append means at the end

try:

open (F,"+< $file");

hk_linux · 01-27-2005, 10:26 PM

hi billy/all,
Can we append charaters to the file after seeking the necessary location? Or will it always overwrite the characters as we proceed with print or write?

TIA.

bigearsbilly · 01-28-2005, 03:57 AM

will overwrite I guess.
you'll have to do some clever stuff to insert.