perl/seek End-Of-File 상위 문서: perl 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.
