如何在Perl中处理UTF16警告机械化调用

Question

我在使用perl中的机械化对使用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;