我正在使用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] %s\n",$response->code,$response->message; # record the timeout if ($response->code == HTTP::Status::HTTP_Request_TIMEOUT) { ... } }
顺便说一句,现在更好的做法是使用Try::Tiny而不是eval {…}.它让你尝试{…} catch {…}.它解决了检查$@的问题(参见Try :: Tiny文档中的背景部分).
原文地址:https://www.jb51.cc/Perl/171993.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。