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);

それ以外の場合、テキストとして解釈され、改行が変更されます。

Answer 2

Dave の言うとおりです。ファイル ハンドルをバイナリ モードに設定する必要があります。しかし、これらすべてを一度に行うことができます。

LWP::Simple::getstore( $params{URL}, 'image.jpg' );