perl使用$ _讀取文件中的每一行不起作用

Question

我正在閱讀“ Perl入門：Simon Cozen撰寫的在線圖書”。 在下面的代碼中，打印注釋將打印我的data.txt文件的所有行。 但是我的while循環不輸出任何內容。 請幫助我解決此問題。

open(FILE,'data.txt');
my $line = <FILE>;
my @lines = <FILE>;
print @lines;

while (<FILE>) {
    print "$_";
}

Answer 1

由於您已經閱讀了文件，而現在您已經“結束”了，因此您需要關閉文件並再次打開它以重新開始。

或者，使用seek FILE, 0, SEEK_SET; 在打開的文件上重新設置，無需重新關閉即可重新開始。 （使用use Fcntl qw( SEEK_SET );導入SEEK_SET 。）