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 https://hyacinth.kr:443/moniwiki/wiki.php/perl/seek End-Of-File
last modified 2014-09-03 13:58:12