perl - 为什么我使用 Perl 的 LWP 下载图像时会得到大小错误的文件？

Question

我正在尝试使用 Perl 从 HTTP 服务器获取图像。

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

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

现在，从逻辑上讲，至少对我来说，这应该可行。但是文件的大小略有不同，我不知道为什么。

帮助!

Answer 1

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

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

否则它会被解释为文本，并且换行符会被修改。