Perl，如何避免来自不直接包含的模块的诊断消息？

Question

我收到此警告（在“使用诊断”之后）；

在 /usr/lib/perl5/HTML/PullParser.pm 第 81 行解码实体时，解析未解码的 UTF-8 会产生垃圾。

我的程序是这样的：

...
use diagnostics;
use WWW::Mechanize;
use WWW::Mechanize::Gzip;
...

$m = WWW::Mechanize::GZip->new(
 agent => $self->{_agent},
 timeout => $self->{_timeout},
);

if (!$m->get($url)) {
 die("Impossibile scaricare l'url [$url]");
}
if (!$m->form_number(1)) {
 die("Impossibile trovare il form 1");
}

 <WARNING IS EMITTED HERE>

...

如何摆脱它？或者我可以放心地忽略它吗？

更新： 我只是注意到使用 WWW::Mechanize->new() 的 WWW::Mechanize::GZip->new() 确实可以静默工作...所以问题来自 GZip 模块...？

Answer 1

首先，您提出的问题确实是错误的。 您不想抑制这些警告，而是想阻止它们。

这听起来像 WWW::Mechanize::Gzip 有问题。无论如何，你并不真的需要它，LWP 内置了 gzip 支持。请参阅this thread（WWW::Mechanize 是 LWP::UserAgent 的子类），了解如何以更理智的方式实现类似结果。