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

그렇지 않으면 텍스트로 해석되고 개행 문자가 munged가됩니다.

Answer 2

데이브가 맞습니다. 파일 핸들을 바이너리 모드로 설정해야합니다. 하지만 한 번에 모든 것을 할 수 있습니다.

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