Perl получить ошибку веб-страницы с LWP: просто - PullRequest
Новая
       20

Perl получить ошибку веб-страницы с LWP: просто

1 голос
/ 12 января 2011

У меня есть проект, над которым я работаю в школе, но мне кажется, что здесь я получаю сообщение об ошибке ...

Я получаю «Не удается вызвать метод« content »для неопределенного значения в строке 5»"

use LWP::Simple;
for(my $id=0;$id<55;$id++)
{
    my $response = get("http://www.gamereplays.org/community/index.php?act=medals&CODE=showmedal&MDSID=" + $id );
    my $content = $response->content;    
        for(my $id2=0;$id2<10;$id2++)
        {
                $content =~ /<img src="http:\/\/www\.gamereplays.org\/community\/style_medals\/(.*)$id2\.gif" alt=""\/>/;
                $url = "http://www.gamereplays.org/community/style_medals/" . $1 . $id2 . ".gif";
                getstore($url, $1 . $id2 . ".gif");

        }
}

1 Ответ

3 голосов
/ 12 января 2011

LWP :: simple не возвращает объект ответа, он возвращает непосредственно строку, содержащую тело ответа. И вы ставите некоторую паузу между каждым запросом, чтобы не загонять целевой веб-сайт.

...