有效地处理lwp超时

Question

我正在使用LWP从网页下载内容,我想限制等待页面的时间.这是在lwp中完成的,如下所示:

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->get($url);

这样可以正常工作,除非超时达到极限,它就会死掉,我无法继续使用脚本!我真的很想妥善处理这个超时,这样我就可以记录url超时然后转到下一个.有谁知道如何做到这一点？谢谢!

Answer 1

LWP ::代理的get()回报HTTP ::响应,可以用于检查错误的对象:

use LWP::Agent;
use HTTP::Status ();

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
my $response = $ua->get($url);

if ($response->is_error) {
    printf "[%d] %s\n", $response->code, $response->message;

    # record the timeout
    if ($response->code == HTTP::Status::HTTP_REQUEST_TIMEOUT) {
        ...
    }
}

顺便说一句,现在更好的做法是使用Try :: Tiny而不是eval {...}.它给你try {...} catch {...}.它解决了一些检查问题if $@(参见Try::Tiny文档中的背景部分).