G
George Mpouras
I want my line to be 5 not 5111
my $counter;
open FILE, '+<:raw', 'test.txt' or die "$!\n";
seek FILE, 0, 0;
read ( FILE , $counter , 64 );
print $counter;
seek FILE, 0, 0; print FILE 1111;
seek FILE, 0, 0; print FILE 5;
close FILE;
my $counter;
open FILE, '+<:raw', 'test.txt' or die "$!\n";
seek FILE, 0, 0;
read ( FILE , $counter , 64 );
print $counter;
seek FILE, 0, 0; print FILE 1111;
seek FILE, 0, 0; print FILE 5;
close FILE;