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

Question

我正在阅读'开始perl：西蒙·科森（Simon Cozen）的在线书。在下面的代码中，打印评论打印我的data.txt文件的所有行。但是我的时循环没有打印任何东西。请帮助我解决此问题。

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。）