刷新行读运算符 Perl

Question

在 perl 中使用 运算符达到 eof 后会发生什么？

我正在逐行阅读INP1

while(<INP1>) {
}

但我需要多次读取，并且每次都需要从文件的开头开始。我怎样才能做到这一点？有没有类似在 perl 中刷新流的东西？

提前致谢。

Answer 1

如果INP1 连接到常规文件句柄（不是套接字句柄或管道句柄），您也可以seek 回到文件开头。

while(<INP1>) {
   ...
}
seek INP1, 0, 0;

# do it again
while (<INP1>) {
   ...
}

另一种选择是将整个文件加载到一个数组中，然后根据需要循环遍历该数组。如果整个文件可以在内存中舒适地放置，并且文件的内容不会在遍历之间发生变化，那么这是一个好主意。

open INP1, '<', $the_file;
@INP1 = <INP1>;
close INP1;

foreach (@INP1) {
   ...
}

# do it again
foreach (@INP1) {
   ...
}

Answer 2

除了使用seek 回到文件开头，您还可以使用Tie::File 将文件视为行数组。根据您的访问模式，这可能比每次从头开始重新读取文件更有效。

Answer 3

你可以seek回到开头：

use Fcntl;
open INP1, ...
while (<INP1>) {
}
seek INP1, 0, SEEK_SET;
while (<INP1>) {
}

只有当 INP1 是一个真实文件（不是管道或套接字）时，这才能正常工作。