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

发布时间：2020-12-15 21:53:03 所属栏目：大数据来源：网络整理

导读：当我尝试使用以下代码下载一些 HTML文件时： $mech-get($link)$mech-save_content("file.html"); 我收到警告： Wide character in print at C:/strawberry/perl/site/lib/WWW/Mechanize.pm line 2040. 有人可以解释我如何修复此警告吗？解决方法您需要确保

当我尝试使用以下代码下载一些 HTML文件时：

$mech->get($link)
$mech->save_content("file.html");

我收到警告：

Wide character in print at C:/strawberry/perl/site/lib/WWW/Mechanize.pm line 2040.

有人可以解释我如何修复此警告吗？

解决方法

您需要确保使用正确的编码打开输出文件句柄.

从简单的浏览文档来看,它看起来并不像Mech对已保存文件的可配置编码,因此您可以抓取内容并自行保存：

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

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

打开的utf8位将确保发送到文件句柄的数据被正确编码为UTF-8.

另一种方法是手动编码：

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!