菜鸟使用AnyEvent::HTTP的问题，请大家看看

txh_zyy

以前用过LWP系列的模块，现在试了试AnyEvent::HTTP这个模块。下面是cpan上一个简单的小例子，但我执行完后，没有任何输出。请大家看看可能是什么原因？谢谢

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use AnyEvent::HTTP;
   
5. http_request
   
6.     GET => "http://www.163.com",
   
7.     sub {
   
8.         my ($body, $hdr) = @_;
   
9. 
   
10.         if ($hdr->{Status} =~ /^2/) {
    
11.             print "$hdr->{Status}, everything should be ok";
    
12.         } else {
    
13.             print "error, $hdr->{Status} $hdr->{Reason}\n";
    
14.         }   
    
15.     };

复制代码

albertd

define callback

txh_zyy

回复 2# albertd


   能否详细点，是cb ＝＞ sub{ };这样吗？

txh_zyy

重新看了下AnyEvent,需要些条件变量

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use AnyEvent::HTTP;
   
5. my $cv = AnyEvent->condvar;
   
6. http_request
   
7.     GET => "http://www.163.com",
   
8.     sub {
   
9.         my ($body, $hdr) = @_;
   
10.         $cv->send;
    
11. 
    
12.         if ($hdr->{Status} =~ /^2/) {
    
13.             print "$hdr->{Status}, everything should be ok";
    
14.         } else {
    
15.             print "error, $hdr->{Status} $hdr->{Reason}\n";
    
16.         }   
    
17.     };
    
18. $cv->recv;
    

复制代码

这样就可以了

iakuf

对，轮子要转起来，才会跑，不然只告诉 anyevent 有这么个东西，还是不会跑的

yakczh

***
*** The EV module is recommended for even better performance, unless you
*** have to use one of the other adaptors (Event, Glib, Tk, etc.).
*** The Async::Interrupt module is highly recommended to efficiently avoid
*** race conditions in/with other event loops.
***
*** This module does not have ANY dependencies, even if it might look
*** otherwise. If you are building a distribution package or have
*** difficulties installing this package due to dependencies, report this
*** to the packager as a bug.
***
*** This module is guaranteed to stay 100% pure-perl, full-featured
*** and performant, even without any of the optional modules.
***

这个模块是不是有性能优势？