perl - 如何在 Perl Mechanize 调用中处理 UTF16 警告

Question

在 perl 中使用 mechanize 对具有 utf16 字符的网站进行机械化调用时出现错误。它向我显示了这个警告Parsing of undecoded UTF-16 at /usr/local/share/perl5/LWP/UserAgent.pm line 600，我知道这是在我调用 $mech->content() 方法时生成的。有没有办法在机械化的内容方法中忽略这些警告？

Answer 1

是的，您可以忽略这样的警告：

{
  no warnings;
  #your code that generate false warnings

};

你可以用这个解决编码错误，它可能有效。

WWW::Mechanize 是 LWP::UserAgent 的适当子类，您也可以使用 LWP::UserAgent 的任何方法。

my $content = $mech->decoded_content();#
if (utf8::is_utf8($content)) {
    binmode STDOUT,':utf8';
} else {
    binmode STDOUT,':raw';
}
print $content;

Answer 2

WWW::Mechanize是 的适当子类，LWP::UserAgent您也可以使用 的任何LWP::UserAgent方法。

my $content = $mech->decoded_content();#
if (utf8::is_utf8($content)) {
    binmode STDOUT,':utf8';
} else {
    binmode STDOUT,':raw';
}
print $content;

please explain where it use