Seek current position : file seek « File « Perl






  1. Perl
  2. File
  3. file seek

Seek current position

    


open(FH, "db") or die "Can't open datebook: $!\n";
while(<FH>){
    last if /Tom/;
}
seek(FH,0,1) or die;   # Seeking from the current position
$line=<FH>;            # This is where the read starts again
print "$line";
close FH;








Related examples in the same category

1.Seek a file
2.Seek a minus value
3.Seek and tell.
4.Seek log file
5.Using seek function from IO:File
6.The seek Function randomly accesses a file.
7.The seek Function randomly accesses a file: seek(FILEHANDLE, BYTEOFFSET, FILEPOSITION);
8.File seek operations
9.Move file pointer by using the seek function