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

【问题标题】：Why does this program not find the word 'error' in my text file?为什么这个程序在我的文本文件中找不到“错误”这个词？
【发布时间】：2011-03-24 11:22:25
【问题描述】：

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

【问题讨论】：

【解决方案1】：

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

【讨论】：

【解决方案2】：

你有一个错误：

while (<$LOG>)

应该阅读

while (<LOG>)

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

【讨论】：

【解决方案3】：

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

use strict;
use warnings;

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

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

【讨论】：

【解决方案4】：

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

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

【讨论】：