有效处理lwp超时

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

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

这工作得很好，除了每当超时达到限制时，它就会死掉，我无法继续执行脚本！我真的很想正确处理这个超时，以便我可以记录该网址超时，然后继续处理下一个。有谁知道如何做到这一点？谢谢！

LWP::代理's 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) {
        ...
    }
}

顺便说一句，现在更好的做法是使用尝试::小代替eval {...}。它给你try {...} catch {...}。它解决了一些检查问题if $@（参见背景部分Try::Tiny文档）。