多線程問題，高手幫忙指導(dǎo)

hejianbu437

我要測試一個負載均衡設(shè)備每秒興建連接數(shù)，寫了下面這個多線程的perl代碼，測出來的結(jié)果每秒新建連接數(shù)大概200的樣子，而我的要求是達到5000/s,如下代碼怎么優(yōu)化呢？哪位朋友指導(dǎo)下，感謝！

1. #!/usr/bin/perl
   
2. use threads;
   
3. use threads::shared;
   
4. use Mojo::UserAgent;
   
5. use Time::HiRes qw/time/;
   
6. $begin = time;
   
7. print "Starting main program\n";
   
8. my $j=0;
   
9. for ( my $count = 1; $count <= 500; $count++) {
   
10. my $t = threads->new(\&sub1, 0.001);
    
11. }
    
12. sub sub1 {
    
13. my $num = shift;
    
14. sleep $num;
    
15. $i=0;
    
16. while($i<10){
    
17. my $ua = Mojo::UserAgent->new;
    
18.   $tx = $ua->get("http://10.20.64.232/");
    
19. if(my $res = $tx->success)
    
20. {
    
21. $j=$j+1;
    
22. print $j/(time-$begin);
    
23. print "\n";
    
24. }
    
25. }
    
26. }

復(fù)制代碼

laputa73

這個。。。硬件功能明顯遠遠超過軟件性能的
不用多臺機器壓，估計是不行的。
用thread,不如直接ab
ab可以測到20000r/s

大米白面

用HTTP::Async，不要啟動線程。

zhlong8

線程是模擬 fork 來實現(xiàn)的，我在 win 下一秒連100個線程都創(chuàng)建不了