异步和同步http请求超时机制

异步超时设置:

例子:
Example: do a simple HTTP GET request for http://www.nethype.de/ and print the response body.

   http_request GET => "http://www.nethype.de/", sub {
      my ($body, $hdr) = @_;
      print "$body\n";
   };
   
 The callback will be called with the response body data as first argument (or undef if an error occurred)

回调会被调用第一个参数是响应的内容,如果错误发生就是undef
 
jrhmpt01:/root/async# cat a6.pl 
use AnyEvent::HTTP;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
my $cv = AnyEvent->condvar;
   http_request GET => 'http://120.55.118.6:3000/api/env?ip=192.168.32.101', 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();
jrhmpt01:/root/async# 

jrhmpt01:/root/async#