AnyEvent http

hejianbu437

下面這段代碼運行后的結(jié)果是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);
    

復(fù)制代碼

laputa73

$cpus 是什么？
$ARGV[0]輸?shù)氖裁矗?br /> 看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;

復(fù)制代碼

這里不需要再用cv了

hejianbu437

回復(fù) 2# laputa73

寫一個http的壓力測試工具，計算單核CPU，最大可以并發(fā)多少個http連接



   

hejianbu437

回復(fù) 2# laputa73

已經(jīng)計算出來了，上面的代碼在我的虛擬機上每秒才80多個連接，太少了，有更好的辦法嗎？我需要并發(fā)量到每秒5000/S

   

laputa73

換成http就很快啊。  100次0.64s.
5000/s有困難，換成局域網(wǎng)可能還有希望。
還得是web server支持

py

hejianbu437 發(fā)表于 2013-12-23 14:58
回復(fù) 2# laputa73

寫一個http的壓力測試工具，計算單核CPU，最大可以并發(fā)多少個http連接

瓶頸不在單核上。況且你還用baidu.com，最多能測出來“百度允許你有幾個并發(fā)連接”。