प्रभावी ढंग से lwp टाइमआउट को संभालें

Question

मैं वेब पेजों से सामग्री डाउनलोड करने के लिए एलडब्लूपी का उपयोग कर रहा हूं, और मैं उस पृष्ठ की प्रतीक्षा करने की मात्रा को सीमित करना चाहता हूं। यह इस तरह LWP में पूरा किया है:

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

और यह ठीक काम करता है, जब भी समय समाप्त अपनी सीमा तक पहुँच जाता है, यह सिर्फ मर जाता है और मैं स्क्रिप्ट के साथ पर जारी नहीं रख सकते के अलावा! मैं वास्तव में इस टाइमआउट को सही तरीके से संभालना चाहता हूं ताकि मैं रिकॉर्ड कर सकूं कि यूआरएल में टाइमआउट था और फिर मेरे अगले पर चले गए। क्या किसी को भी यह करना आता है? धन्यवाद!

Answer 1

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 का उपयोग करना है। यह आपको try {...} catch {...} देता है। और यह if $@ की जांच के साथ कुछ समस्याएं हल करता है (Try::Tiny दस्तावेज़ में पृष्ठभूमि अनुभाग देखें)।

Answer 2

आप eval ब्लॉकों का उपयोग कर एक कोशिश {} {} पकड़ पर्ल में के बराबर कर सकते हैं:

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

Answer 3

अधिकांश उद्देश्यों के लिए, एलडब्लूपी :: उपयोगकर्ता एजेन्ट का टाइमआउट पर्याप्त है, लेकिन इसमें कुछ कमियां आती हैं ... यह प्रत्येक सिस्टम कॉल पर कुल योग की बजाय लागू होती है। यदि आपको वास्तव में एक निश्चित टाइमआउट अवधि की आवश्यकता है, तो यह उन चीजों में से एक है जो LWPx::ParanoidAgent परवाह करते हैं।