AnyEvent http

hejianbu437

下面这段代码运行后的结果是0，哪位朋友能帮我解读下这段程序，感谢！！！

1. use Time::HiRes qw/time/;
   
2. use AnyEvent::HTTP;
   
3. use AnyEvent;
   
4. use Coro;
   
5. my %code;
   
6. my $count = 100;
   
7. my $url = "https://baidu.com";
   
8. my $begin = time;
   
9. my @coro = map {
   
10.     async {
    
11.         my $cv = AnyEvent::condvar;
    
12.         $cv->begin;
    
13.         my $header_time;
    
14.         http_request GET => "$url",
    
15.             sub {
    
16.                 my (undef, $hdr) = @_;
    
17.                 $code{$hdr->{'Status'}}++;
    
18.                 $cv->end;
    
19.             }
    
20.         ;
    
21.         $cv->recv;
    
22.     }
    
23. } (1 .. $count);
    
24. $_->join for @coro;
    
25. print $cpus*$ARGV[0]/(time-$begin);
    

复制代码

laputa73

$cpus 是什么？
$ARGV[0]输的什么？
看coro的intro

1.    use AnyEvent::HTTP;
   
2. 
   
3.    # do not pass control for long - http_get immediately returns
   
4.    http_get "http://example.org/", Coro::rouse_cb;
   
5. 
   
6.    # we stay in control and can do other things...
   
7.    # ...such as wait for the result
   
8.    my ($res) = Coro::rouse_wait;

复制代码

这里不需要再用cv了

hejianbu437

回复 2# laputa73

写一个http的压力测试工具，计算单核CPU，最大可以并发多少个http连接



   

hejianbu437

回复 2# laputa73

已经计算出来了，上面的代码在我的虚拟机上每秒才80多个连接，太少了，有更好的办法吗？我需要并发量到每秒5000/S

   

laputa73

换成http就很快啊。  100次0.64s.
5000/s有困难，换成局域网可能还有希望。
还得是web server支持

py

hejianbu437 发表于 2013-12-23 14:58
回复 2# laputa73

写一个http的压力测试工具，计算单核CPU，最大可以并发多少个http连接

瓶颈不在单核上。况且你还用baidu.com，最多能测出来“百度允许你有几个并发连接”。