perl - 为什么这个程序在我的文本文件中找不到“错误”这个词？

Question

open(LOG,"logfile.txt") or die "Unable to open $logfile:$!";
print "\n";
while(<$LOG>){
  print if /\berror\b/i;
}
close(LOG);

Answer 1

您的错字实际上使您更接近以正确的方式打开文件 - 即使用推荐的 3 参数形式open。

use strict;
use warnings;

open(my $log, '<', "logfile.txt") or die "Open failed : $logfile : $!";
while (<$log>) {
    ...
}

这种方法更好，因为您的文件句柄可以存储在词法范围的变量中（而不是全局名称，如LOG）。这为在词法变量超出范围时自动关闭文件提供了额外的好处。此外，词法文件句柄可以使用更熟悉的语法在子例程之间传递。

Answer 2

如果你想要一个更轻松的open，你可以这样做：

@ARGV = 'logfile.txt';
while ( <> ) { 
    print if /\berror\b/i;
}

Answer 3

open LOG, "logfile.txt"; while (<LOG>) { print if /\berror\b/i; }

Answer 4

你有一个错误：

while (<$LOG>)

应该读

while (<LOG>)

文件句柄不是变量，所以没有 $。