如何保留从Perl中的文件读取的数据

Question

我遇到了一个问题，就是我从这样的文本文件中读取数据：

open(DATA1, "<test.txt") or die $!;

我想在多个地方使用DATA1（比方说我会在两个潜点中循环）。但我发现它只在第一个子行为中表现正确，而在第二个子行为中，没有任何东西存在。我想知道是否有办法保留我从文件中读取的内容并在多个地方使用它。感谢。

Answer 1

我认为您需要使用seek函数将文件指针倒回到文件的开头。寻找0以将文件句柄位置返回到文件的开头，您将能够再次阅读它。

Answer 2

使用词法文件句柄。

use strict;
use warnings;
use autodie;

# ...

open my $fh, '<', 'test.txt';

然后你可以将它作为标量传递给任何你要读取的函数，就像你输入的那样。

while (<$fh>) {