xử lý hết thời gian chờ lwp

Question

Tôi đang sử dụng LWP để tải xuống nội dung từ các trang web và tôi muốn giới hạn khoảng thời gian chờ trang. Điều này được thực hiện trong lwp như thế này:

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

Và điều này làm việc tốt, ngoại trừ bất cứ khi nào hết thời gian, nó chỉ chết và tôi không thể tiếp tục với kịch bản! Tôi thực sự muốn xử lý thời gian chờ này đúng cách để tôi có thể ghi lại rằng url đã hết thời gian chờ và sau đó chuyển sang lần tiếp theo. Có ai biết cách để làm điều này không? Cảm ơn!

Answer 1

LWP::Agent 's get() trả về một đối tượng HTTP::Response mà bạn có thể sử dụng cho các lỗi kiểm tra:

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) { 
     ... 
    } 
} 

Btw, thực tiễn tốt hơn hiện nay là sử dụng Try::Tiny thay vì eval {...}. Nó cung cấp cho bạn try {...} catch {...}. và nó giải quyết một số vấn đề với việc kiểm tra if $@ (xem phần nền trong tài liệu Try::Tiny).

Answer 2

Bạn có thể làm tương đương với một try {} catch {} trong Perl sử dụng khối eval:

http://perldoc.perl.org/functions/eval.html

Answer 3

Đối với hầu hết các mục đích, LWP :: Thời gian chờ của UserAgent là đủ, nhưng nó có một số hạn chế ... nó áp dụng cho mỗi cuộc gọi hệ thống, thay vì tổng hợp chúng. Nếu bạn thực sự cần một khoảng thời gian chờ cố định, đây là một trong những điều mà LWPx::ParanoidAgent chăm sóc.