CODEWITHSUNDEEP
perlimagelwp
Xetius
Xetius

Reputation: 46754

Why does my image download with Perl's LWP give me the wrong-sized file?

I am trying to get an image from an HTTP server using Perl.

I have the full URL of the file and am attempting to use 

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

Now, logically, to me at least, this should work. But the files are slightly different sizes, and I can't work out why.

Help!

Upvotes: 7

Views: 6430

Answers (2)

innaM
innaM

Reputation: 47829

Dave is right, you should/must set your file handle to binary mode. But you could do all that in one go:

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

Upvotes: 13

dave4420
dave4420

Reputation: 47042

You need to use binmode to properly write the image data to disk.

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

Otherwise it is interpreted as text, and the newlines get munged.

Upvotes: 14

Related Questions