get '/api/test' => sub{
my $c=shift;
sleep(10);
$c->render(text =>"this is test 1229")
};
centos6.5:/root#perl as.pl
$time1 is 2016-12-29 22:52:33
11111111111111111111
/**************
centos6.5:/root#cat as.pl
use AnyEvent::HTTP;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
my $cv = AnyEvent->condvar;
http_request GET => 'http://192.168.11.185:3000/api/test',timeout => 5, sub {
my ($body, $hdr) = @_;
$time2=time2iso(time());
print "\$time2 is $time2\n";
print "$body\n";
};
$time1=time2iso(time());
print "\$time1 is $time1\n";
print "11111111111111111111\n";
$cv->recv();
centos6.5:/root#perl as.pl
$time1 is 2016-12-29 22:52:33
11111111111111111111
$time2 is 2016-12-29 22:52:38
此时5秒钟就超时不输出了
centos6.5:/root#cat as.pl
use AnyEvent::HTTP;
use HTTP::Date qw(time2iso st
异步请求和超时控制
最新推荐文章于 2024-05-11 09:02:23 发布