Mega Code Archive

 

Categories / Perl / File

 

Seek a minus value

open(FH, "db") or die "Can't open datebook: $!\n"; seek(FH,-13,2) or die; while(<FH>){     print; }