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

[thread]12350[/thread]

LWP::Simple Timeout festlegen?

Leser: 3

Gast Gast

2008-08-13 02:49

Ich wollte mal fragen ob man das Timeout von LWP::Simple runtersetzen kann?

Code: (dl )

use LWP::Simple;

....txt einlesen...
for(....)  {
    $source get($website);
    print $source
}

kann ich da irgendwie festlegen wie das Timeout ist, also nach welcher Zeit abgebrochen werden soll und das nächste gemacht?

GwenDragon

2008-08-13 11:36

User since
2005-01-17
14747 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

View all threads created 2008-08-13 02:49.