なぜ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');