Захватите изображение из URL-адреса .asp и сохраните его

Question

Я пытаюсь получить изображение, расположенное здесь , и сохранять его на своем сервере несколько раз в день, как если бы я "щелкнул правой кнопкой мыши" по изображению и сохранилэто на моем рабочем столе.Я решил использовать Perl-скрипт для этого, вот что я написал до сих пор:

use Image::Grab;
 $pic->regexp('.*\.png');
 $pic->search_url('http://www.reuters.wallst.com/enhancements/chartapi/index_chart_api.asp?symbol=.SPX&headerType=quote&width=316&height=106&duration=3');
 $pic->grab;
open(IMAGE, ">index_chart_api.png") || die"index_chart_api.png: $!";
 binmode IMAGE;  # for MSDOS derivations.
 print IMAGE $pic->image;
 close IMAGE;

После запуска через ssh я получаю эту ошибку: Не могу вызвать метод "regexp" длянеопределенное значение в строке 2

Кто-нибудь знает, что не так с этой строкой "$ pic-> regexp ('. *. png');"или как правильно захватить и сохранить это изображение (index_chart_api.png) из упомянутого URL на одном сервере?

Цените любую помощь с этим.

Answer 1

Обратите внимание, что URL-адрес показывает изображение PNG в моем браузере, что означает, что для поиска изображения нет HTML. В принципе, тогда должен работать следующий скрипт:

#!/usr/bin/env perl

use warnings; use strict;
use LWP::Simple qw(getstore is_error);

my $img_url = 'http://www.reuters.wallst.com/enhancements/chartapi/index_chart_api.asp?symbol=.SPX&headerType=quote&width=316&height=106&duration=3';

my $ret = getstore($img_url, 'test.png');

if (is_error($ret)) {
    die "Error: $ret\n";
}

Я использовал аналогичный сценарий для создания Норвежского Солнца в Балтийском море - 6 дней за 5 минут .

Answer 2

Вы не инициировали объект, поэтому он не определен.

use Image::Grab;
$pic = new Image::Grab;
$pic->regexp('.*\.png');

или похожая вещь:

use Image::Grab;

$pic = Image::Grab->new(
            SEARCH_URL => '',
            REGEXP     => '.*\.png');
$pic->grab;
open(IMAGE, ">image.jpg") || die "image.jpg: $!";
binmode IMAGE;  
print IMAGE $pic->image;
close IMAGE;