Perché il download dell'immagine con l'LWP di Perl mi fornisce il file di dimensioni errate?

Question

Sto cercando di ottenere un'immagine da un server HTTP usando Perl.

ho l'URL completo del file e sto tentando di utilizzare

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

Ora, logicamente, almeno per me, questo dovrebbe funzionare. Ma i file hanno dimensioni leggermente diverse e non riesco a capire perché.

Help!

Answer 1

È necessario utilizzare binmode per scrivere correttamente i dati dell'immagine su disco.

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

In caso contrario viene interpretato come testo, e le nuove righe ottenere munged.

Answer 2

Dave ha ragione, è necessario/deve impostare l'handle del file in modalità binaria. Ma puoi fare tutto questo in una volta sola:

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