Mega Code Archive

 

Categories / Perl / File

 

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;