2015-12-04T13:45:52 janAn sich sollte es reichen, LWP::UserAgent->new( keep_alive => 1 ) zu nutzen, um keep-alive zu nutzen. Manuelles Connectionmanagement ist unnötig.
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl use strict; use LWP::UserAgent; my $ua = LWP::UserAgent->new( keep_alive => 0); for(1..2) { my $req = HTTP::Request->new("GET", "http://www.gastwirtschaft-tauer.de/cgi-bin/info.cgi"); my $res = $ua->simple_request($req); print $res->decoded_content . "\n"; }