呵呵，请问下AnyEvent::HTTP。

laputa73

你的写法太奇葩了。
先看看AE::http的例子，在考虑怎么和coro合

laputa73

基本的写法。

1. #!/usr/local/bin/perl
   
2. use strict;
   
3. use Coro;
   
4.   use AnyEvent;
   
5. use AnyEvent::HTTP;
   
6. 
   
7. 
   
8.   my $coro = async {        
   
9.         http_get ("http://www.baidu.com/", cb => Coro::rouse_cb );     
   
10.         print ("1.\n");
    
11. #        cede;
    
12.         my ($content, $hdr) = Coro::rouse_wait;
    
13. #       return $content;
    
14.       return $hdr->{Status};
    
15.    };
    
16. 
    
17.    my $result = $coro->join;
    
18. 
    
19.    print $result;
    
20. #  cede; # and again
    
21. print "b.\n";
    
22. #cede;
    
23. 
    

复制代码

laputa73

回复 5# y6cmE


    你的代码的主要问题是根本就没有发起请求。
   因为没有调用coro的async方法。
   如果不用coro,就要用cv

1. use AnyEvent::Impl::Perl;
   
2. 
   
3. require AnyEvent::HTTP;
   
4. 
   
5. print "ok 1\n";
   
6. 
   
7. my $cv = AnyEvent->condvar;
   
8. 
   
9. AnyEvent::HTTP::http_get ("http://nonexistant.invalid/", timeout => 1, sub {
   
10.    print "ok 3\n";
    
11.    $cv->send;
    
12. });
    
13. 
    
14. print "ok 2\n";
    
15. $cv->recv;
    
16. print "ok 4\n";

复制代码

至于header,agent怎么写，不同包都差不多的。