my $curpos; for ($curpos = tell(FILE_HANDLE); $_ = <FILE_HANDLE>; $curpos = tell(FILE_HANDLE)) { # search for some stuff and put it into files } seek(FILE_HANDLE,$curpos,0);
EOF
Perl
seek
Retrieved from http://hyacinth.byus.net/moniwiki/wiki.php/Perl/seek End-Of-File
last modified 2014-09-03 13:58:12