LWP::Simple Timeout festlegen? - #113474 (Netzwerkprogrammierung und Netzwerke mit Perl)

GwenDragon

2008-08-13 11:36

User since
2005-01-17
14757 Artikel
Admin1

Mit

LWP::UserAgent ist es möglich, ein timeout zu setzen.
Schau mal in die Dokumentation bei CONSTRUCTOR METHODS.

Bei der Konstruktion des Useragent-Objekts:

Code: (dl )

1
2
3

my $ua = LWP::UserAgent->new(  
  agent => 'Spinne/0.9', 
  timeout=>5 );

oder:

Code: (dl )

1
2

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

Beispielcode:

Code (perl): (dl )

use strict;
use warnings;
use LWP::UserAgent;
 
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
 
my $response = $ua->get('http://search.cpan.org/');
 
if ($response->is_success) {
     print $response->decoded_content;  # or whatever
}
else {
     die $response->status_line;
}

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten