Mega Code Archive

 

Categories / Perl / File

 

Using seek function from IO

use IO::File; use IO::Seekable; $filehandle = new IO::File; $filehandle->open("<file.txt") or die "Cannot open file.txt"; $filehandle->seek(12, 0); while (<$filehandle>){     print; } $filehandle->close;