perl - 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 支持。请参阅此线程（WWW::Mechanize 是 LWP::UserAgent 的子类），了解如何以更理智的方式实现类似结果。