Próbuję zaimplementować żądanie do niewiarygodnego serwera. Żądanie jest przyjemne, ale nie w 100% wymagane do pomyślnego ukończenia mojego skryptu Perla. Problem polega na tym, że serwer czasami się zakleszcza (próbujemy ustalić przyczynę), a prośba nigdy się nie powiedzie. Ponieważ serwer uważa, że jest aktywny, utrzymuje połączenie z gniazdem, a zatem wartość limitu czasu LWP :: UserAgent nic nam nie daje. Jaki jest najlepszy sposób na wymuszenie całkowitego limitu czasu na żądanie?True timeout na LWP :: UserAgent request method
FYI, to nie jest problem z DNS. Zakleszczenie ma coś wspólnego z ogromną liczbą aktualizacji trafiających do naszej bazy danych Postgres w tym samym czasie. Do celów testowych zasadniczo wstawiliśmy (1) linię {} do obsługi odpowiedzi serwera.
Obecnie kod wygląda tak:
my $ua = LWP::UserAgent->new;
ua->timeout(5); $ua->cookie_jar({});
my $req = HTTP::Request->new(POST => "http://$host:$port/auth/login");
$req->content_type('application/x-www-form-urlencoded');
$req->content("login[user]=$username&login[password]=$password");
# This line never returns
$res = $ua->request($req);
Próbowałem przy użyciu sygnałów do wyzwalania limit czasu, ale to nie wydają się działać.
eval {
local $SIG{ALRM} = sub { die "alarm\n" };
alarm(1);
$res = $ua->request($req);
alarm(0);
};
# This never runs
print "here\n";
Ostateczna odpowiedź, której zamierzam użyć, została zaproponowana przez kogoś offline, ale wspomnę o tym tutaj. Z jakiegoś powodu SigAction działa, gdy $ SIG (ALRM) nie działa. Nadal nie wiadomo dlaczego, ale zostało to przetestowane pod kątem działania. Oto dwie wersje robocze:
# Takes a LWP::UserAgent, and a HTTP::Request, returns a HTTP::Request
sub ua_request_with_timeout {
my $ua = $_[0];
my $req = $_[1];
# Get whatever timeout is set for LWP and use that to
# enforce a maximum timeout per request in case of server
# deadlock. (This has happened.)
use Sys::SigAction qw(timeout_call);
our $res = undef;
if(timeout_call(5, sub {$res = $ua->request($req);})) {
return HTTP::Response->new(408); #408 is the HTTP timeout
} else {
return $res;
}
}
sub ua_request_with_timeout2 {
print "ua_request_with_timeout\n";
my $ua = $_[0];
my $req = $_[1];
# Get whatever timeout is set for LWP and use that to
# enforce a maximum timeout per request in case of server
# deadlock. (This has happened.)
my $timeout_for_client = $ua->timeout() - 2;
our $socket_has_timedout = 0;
use POSIX;
sigaction SIGALRM, new POSIX::SigAction(
sub {
$socket_has_timedout = 1;
die "alarm timeout";
}
) or die "Error setting SIGALRM handler: $!\n";
my $res = undef;
eval {
alarm ($timeout_for_client);
$res = $ua->request($req);
alarm(0);
};
if ($socket_has_timedout) {
return HTTP::Response->new(408); #408 is the HTTP timeout
} else {
return $res;
}
}
Możliwy duplikat [Jak wymusić określony limit czasu w Perl?] (Http://stackoverflow.com/questions/15899855/how-to-enforce-a -definite-timeout-in-perl) – sixtyfootersdude