我试图使用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);
否则它被解释为文本,并且换行符被释放.