Mega Code Archive

 

Categories / Perl / File

 

Seek a file

open (FILEHANDLE, "<file.txt") or die "Cannot open file.txt"; seek FILEHANDLE, 12, 0; while (<FILEHANDLE>){     print; } close (FILEHANDLE);