Mega Code Archive

 

Categories / Perl / File

 

Call tell function from file handle

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