Perl/seek End-Of-File Edit Diff Refresh Backlink Random Search History Help Setting Hide Show 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 이 글에는 0 개의 댓글이 있습니다. Please enable JavaScript to view the comments powered by Disqus. comments powered by Disqus
