perl – WWW ::机械化和广角警告

前端之家收集整理的这篇文章主要介绍了perl – WWW ::机械化和广角警告前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
当我尝试使用以下代码下载一些 HTML文件时:
$mech->get($link)
$mech->save_content("file.html");
@H_403_4@我收到警告:

Wide character in print at C:/strawberry/perl/site/lib/WWW/Mechanize.pm line 2040.
@H_403_4@有人可以解释我如何修复此警告吗?

解决方法@H_502_12@
您需要确保使用正确的编码打开输出文件句柄. @H_403_4@从简单的浏览文档来看,它看起来并不像Mech对已保存文件的可配置编码,因此您可以抓取内容并自行保存:

$mech->get( $link );
my $content = $mech->content;

open my $fh,'>:utf8',$file or die "$file: $!";
print $fh $content;
@H_403_4@打开的utf8位将确保发送到文件句柄的数据被正确编码为UTF-8.

@H_403_4@另一种方法是手动编码:

use Encode;
my $content = encode 'utf8',$mech->content;

open my $fh,'>',$file or die "$file: $!";
binmode $fh;
print $fh $content;

猜你在找的Perl相关文章