Tại sao tải xuống hình ảnh của tôi với LWP của Perl cho tôi tệp có kích thước sai?

Question

Tôi đang cố gắng để có được một hình ảnh từ một máy chủ HTTP bằng cách sử dụng Perl.

Tôi có URL đầy đủ của tập tin và đang cố gắng sử dụng

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

Bây giờ, một cách logic, với tôi ít nhất, điều này sẽ làm việc. Nhưng các tệp có kích thước hơi khác nhau và tôi không thể giải thích tại sao.

Trợ giúp!

Answer 1

Bạn cần sử dụng binmode để ghi dữ liệu hình ảnh vào đĩa đúng cách.

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

Nếu không thì nó được hiểu là văn bản và dòng mới bị cắt.

Answer 2

Dave đúng, bạn nên/phải đặt xử lý tệp của mình ở chế độ nhị phân. Nhưng bạn có thể làm tất cả những gì trong một đi:

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