Невозможно загрузить изображение из заданной сети с помощью Perl's LWP :: Simple - PullRequest
Новая
       71

Невозможно загрузить изображение из заданной сети с помощью Perl's LWP :: Simple

0 голосов
/ 22 сентября 2019

Я использую следующий API из этого web , который напрямую загружает данное изображение: 

http://api.brain-map.org/api/v2/image_download/69750516?downsample=4

(где 69750516 и 4 - переменные).

Я ввел его в этот скрипт на Perl: 

#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my$url="http://api.brain-map.org/api/v2/image_download/69750516?downsample=4";
my$file=get $url or die "failed at getting ".$url;

if ($file) {         
        open(FILE, ">", "myimage.jpg");
        print FILE $file;
        close FILE; }

Но вывод: 

$ perl myscript.pl 
failed at getting http://api.brain-map.org/api/v2/image_download/69750516?downsample=4 at myscript.pl line 6.

Фактически, несколько месяцев назад это сработало.Я не знаю, связана ли проблема с изменениями в сети происхождения или с новыми функциями Perl или модуля LWP.Я бы хотел посоветовать вам адекватно использовать LWP или другие модули Perl.

...