为什么用Perl的LWP下载我的图像会给我一个错误大小的文件？

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

导读：我试图使用Perl从HTTP服务器获取图像. 我有该文件的完整URL,我正在尝试使用 my $data = LWP::Simple::get $params{URL};my $filename = "image.jpg";open (FH,"$filename");print FH $data;close (FH); 现在,从逻辑上讲,至少对我来说,这应该有效.但文件大小

我试图使用Perl从HTTP服务器获取图像.

我有该文件的完整URL,我正在尝试使用

my $data = LWP::Simple::get $params{URL};
my $filename = "image.jpg";
open (FH,">$filename");
print FH $data;
close (FH);

现在,从逻辑上讲,至少对我来说,这应该有效.但文件大小略有不同,我无法解决原因.

救命！

解决方法

您需要使用 binmode将图像数据正确写入磁盘.

my $data = LWP::Simple::get $params{URL};
my $filename = "image.jpg";
open (FH,">$filename");
binmode (FH);
print FH $data;
close (FH);

否则它被解释为文本,并且换行符被释放.

（编辑：李大同）

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