防止 Perl 打印相同的警告消息

Question

以下面的废话脚本为例：

use strict;
use warnings;

my $uninitialisedValue;

while(<>){
  print ${$uninitialisedValue}{$_},"\n";
}

从命令行运行：

$ perl warningPrinter.pl < longfile.txt

无论标准输入包含什么，标准输出都会充满：

Use of uninitialized value in print at warningPrinter.pl line 16, <> line 1.

Use of uninitialized value in print at warningPrinter.pl line 16, <> line 2.

Use of uninitialized value in print at warningPrinter.pl line 16, <> line 3.

Use of uninitialized value in print at warningPrinter.pl line 16, <> line 4.
...

我使用非常长的文件，因此在测试我的脚本时将其作为输出接收至少会有点烦人。进程响应 Ctrl + C 终止信号可能需要一段时间，并且我的终端突然充满了相同的错误消息。

有没有办法让 Perl 只打印相同且重复出现的警告消息的第一个实例，或者只使警告消息对脚本的执行造成致命影响？鉴于尽管有警告，但我从未制作过有效的脚本，所以我会接受。但如果我能让 Perl 只打印一次相同的警告，可能会更方便。

Answer 1

我想我会向您展示如何创建独特的警告逻辑。不过我不推荐它：

my %printed;
local $SIG{__WARN__} = sub { 
    my $message = shift;
    my ( $msg, $loc ) = $message =~ m/(.*?) at (.*?line \d+)/;
    print $message unless $printed{$loc}{$msg}++;
};

我应该说我不建议将其作为一般的做法。因为最好有一个警告政策。它要么是一个可以采用未定义值的操作，要么是您不想处理 undef 值。我尝试从已完成的代码中删除所有警告。

在第一种情况下，将no warnings 'uninitialized'; 放入for 循环是一件容易得多的事情——而且是常规。在第二种情况下，您可能希望失败。

但是，如果这是您真正想要处理但警告过一次的事情，假设您想要对数据进行稳健处理，但想要警告上游进程您有一些不良数据，您可以创建一个 @ 987654325@:

{   use Carp ();
    my %warned;
    sub warn_once { 
        my $message = shift;
        my ( $msg, $loc ) = $message =~ m/(.*?) at (.*?line \d+)/;
        Carp::carp( $message ) unless $warned{$loc}{$msg}++;
    };
}

然后这样称呼它：

while ( <> ) { 
    warn_once( '$uninitialisedValue is uninitialized' )
        unless defined( $uninitialisedValue)
        ;
    no warnings 'uninitialized';
    print ${$uninitialisedValue}{$_},"\n";
}

那么你已经决定了一些事情。