Perl/seek End-Of-File Edit Diff Refresh Backlink Random Search History Help Setting 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 Show Comments Please enable JavaScript to view the comments powered by Disqus.
