perl – 有效处理lwp超时

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 {…}.它让你尝试{…} catch {…}.它解决了检查$@的问题(参见Try :: Tiny文档中的背景部分).