多线程问题，高手帮忙指导

hejianbu437

我要测试一个负载均衡设备每秒兴建连接数，写了下面这个多线程的perl代码，测出来的结果每秒新建连接数大概200的样子，而我的要求是达到5000/s,如下代码怎么优化呢？哪位朋友指导下，感谢！

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. }

复制代码

laputa73

这个。。。硬件功能明显远远超过软件性能的
不用多台机器压，估计是不行的。
用thread,不如直接ab
ab可以测到20000r/s

大米白面

用HTTP::Async，不要启动线程。

zhlong8

线程是模拟 fork 来实现的，我在 win 下一秒连100个线程都创建不了