大佬教程收集整理的这篇文章主要介绍了perl – LWP :: UserAgent请求方法的真实超时,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
FYI,这不是一个DNS问题.死锁与大量更新同时处理POSTGRes数据库有关.为了测试目的,我们已经在服务器响应处理程序中基本上放了一段时间(1){}行.
目前,代码如下:
@H_554_6@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);我尝试使用信号触发超时,但这似乎不起作用.
eval { local $SIG{ALRM} = sub { die "alarm\n" }; alarm(1); $res = $ua->request($req); alarm(0); }; # This never runs print "here\n";
我将要使用的最终答案是由离线人员提出的,但我会在这里提及.由于某些原因,SigAction可以工作,而$SIG(ALRM)则不起作用.仍然不知道为什么,但这已经测试工作.这里有两个工作版本:
# 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; } }
除此之外,它允许您指定全局超时.它是由Brad Fitzpatrick开发的,作为LiveJournal项目的一部分.
以上是大佬教程为你收集整理的perl – LWP :: UserAgent请求方法的真实超时全部内容,希望文章能够帮你解决perl – LWP :: UserAgent请求方法的真实超时所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。