Я пытаюсь получить изображение с HTTP-сервера с помощью Perl.
У меня есть полный URL-адрес файла, и я пытаюсь использовать
my $data = LWP::Simple::get $params{URL};
my $filename = "image.jpg";
open (FH, ">$filename");
print FH $data;
close (FH);
Теперь, по логике, по крайней мере для меня, это должно работать. Но файлы немного разного размера, и я не могу понять, почему.
Помощь!
Вам нужно использовать binmode для правильной записи данных изображения на диск.
my $data = LWP::Simple::get $params{URL};
my $filename = "image.jpg";
open (FH, ">$filename");
binmode (FH);
print FH $data;
close (FH);
В противном случае он интерпретируется как текст, и символы новой строки удаляются.
Дэйв прав, вы должны/должны установить дескриптор файла в двоичный режим. Но вы можете сделать все это за один раз:
LWP::Simple::getstore( $params{URL}, 'image.jpg' );
