Perl 读取文件错误

Question

我必须使用 perl 逐行读取内存中的一个大(大)文件。如果出现错误，函数 open() 会返回 false 和 $!设置为系统错误。但是，如果我在读取 文件时遇到一些错误？我使用这段代码:

open(STATISTICS, "<" . $statisticsFile) or die "Can't open statistics file $statisticsFile ($!)";
while (<STATISTICS>) {
  my $line = $_;
  ...
}
close($STATISTICS);

有什么提示吗？

Answer 1

您可以更改您的代码以如下所示工作。

您的文件句柄似乎同时使用了 STATISTICS 和 $STATISTICS。由于词法句柄是可取的，所以我在这里使用了 $stat。

open my $stat, "<" . $statisticsFile
    or die "Can't open statistics file $statisticsFile: $!";

until (eof $stat) {
  my $line = <$stat>;
  defined $line or die "Read failure on statistics file $statisticsFile: $!";
  ...
}

close($stat);