File Perl

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