Dlaczego mój obraz pobrany z LWP Perla daje mi plik o niewłaściwych rozmiarach?

Question

Próbuję uzyskać obraz z serwera HTTP za pomocą Perl.

mam pełny adres URL pliku i 'm próbuje użyć

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

Teraz logicznie, przynajmniej dla mnie, to powinno działać. Ale pliki mają nieco inne rozmiary i nie mogę zrozumieć dlaczego.

Pomoc!

Answer 1

Musisz użyć binmode, aby poprawnie zapisać dane obrazu na dysku.

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

W przeciwnym razie zostanie zinterpretowany jako tekst, a nowe znaki zostaną zniekształcone.

Answer 2

Dave ma rację, powinieneś/musisz ustawić uchwyt pliku na tryb binarny. Ale możesz zrobić to wszystko za jednym razem:

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