perl – 有效处理lwp超时

发布时间：2020-12-15 21:54:12 所属栏目：大数据来源：网络整理

导读：我正在使用LWP从网页下载内容,我想限制等待页面的时间.这是在lwp中完成的,如下所示： my $ua = LWP::UserAgent-new;$ua-timeout(10);$ua-get($url); 这样可以正常工作,除非超时达到极限,它就会死掉,我无法继续使用脚本！我真的很想妥善处理这个超时,这样我就

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

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

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

解决方法

LWP::Agent的get()返回一个可用于检查错误的 HTTP::Response对象：

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] %sn",$response->code,$response->message;

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!