如何抑制从加载的模块代码中发出的 Perl 警告？答案

【问题标题】：How to suppress Perl warnings emitted from within a loaded module's code?如何抑制从加载的模块代码中发出的 Perl 警告？
【发布时间】：2012-05-09 09:18:20
【问题描述】：

我的 Perl 程序正在从通过 USB 连接的串行设备读取数据。我的伪 Perl 脚本的标题：

use warnings;
use strict;

use Device::SerialPort;
my $PortObj = tie( *$handle , "Device::SerialPort" , $PortName ) or die "Cannot open serial port: $!\n";
while ( 1 ) {
  my $readLength = read( $handle , my $frameData , $frameLength )
}

一切正常，即使我从 USB 中拔出设备，当设备文件消失并重新出现时，我也能够从这种情况中恢复。我可以捕获从我自己的脚本产生的所有错误，但是加载的模块 (Device::SerialPort) 也会产生警告，我不希望它们出现在我的日志记录中。

我可以在我的代码中添加某种标志，这样我就看不到这些特定的警告吗？对我来说重要的是，只有来自模块的警告被禁止，而不是来自我自己的脚本的警告。目前它看起来像这样：

[/dev/ttyUSB1] 0x0020：00 00 00 00 00 00 00 00 00 AA 93 82 73 68 5E 58：.......sh^X [/dev/ttyUSB1] 0x0030：55 54 52 52 4F 4E 50 51 50 00 00 00 00 00 00 00：UTRRONPQP....... 在 /usr/lib/perl5/Device/SerialPort.pm 第 2214 行加上 (+) 使用未初始化的值 $count_in。在连接 (.) 中使用未初始化的值 $string_in 或 /usr/lib/perl5/Device/SerialPort.pm 第 2232 行的字符串。 [/dev/ttyUSB1] 需要重启！ [/dev/ttyUSB1] 无法打开串口：没有那个文件或目录 [/dev/ttyUSB1] 无法打开串口：没有那个文件或目录 [/dev/ttyUSB1] 无法打开串口：没有那个文件或目录 [/dev/ttyUSB1] 0x0000：41 42 01 40 71 01 1C E4 80 99 80 80 80 80 00 00：AB.@q....... [/dev/ttyUSB1] 0x0010：00 03 00 00 83 00 01 01 00 00 00 00 00 00 00 00：......

所以这是关于我想摆脱的两个Use of uninitialized value 警告。其他警告是我自己的日志记录。

libdevice-serialport-perl 1.04-2build1
perl v5.12.4

【问题讨论】：

最好将这些错误报告给作者。

标签： linux perl module warnings

【解决方案1】：

您可以尝试拦截警告：

$SIG{'__WARN__'} = sub { warn $_[0] unless (caller eq "Device::SerialPort"); };

【讨论】：

试过了，可惜没有效果。
@jippie，除非模块专门覆盖$SIG{__WARN__}（不太可能）或者如果它们实际上不是警告（是的，正确的），使用$SIG{__WARN__} 肯定会起作用。这可能只是修复“如果”的问题。 s/Device::Serial/Device::SerialPort/，对于初学者来说。
老鼠，是的，它是SerialPort 不是 Serial。谢谢池上。
有效 :) 我也没有看到错字。

【解决方案2】：

在我的主目录中复制模块并添加两行：

$ diff SerialPort.pm /usr/lib/perl5/Device/SerialPort.pm 
2207,2208d2206
<     unless ( defined $count_in ) { $count_in = 0; }
<     unless ( defined $string_in ) { $string_in = ""; }

这似乎有效。通知作者。

【讨论】：