- 论坛徽章:
- 0
|
公司太穷,给几台P3的客户机让我测8核16G的服务器的并发,没找着开销小的开源软件,只能自己瞎捣鼓
问题是这样的:我的客户机上不管上几个ip都只能建63000个连接的样子,崩溃啊,这个肯定不够的,有没有人
帮我看下为啥上不去呢?谢谢- #a.pl
- use IO::Socket;
- $localaddr=shift;
- @sock=();
- for(1..525)
- {
- $client = IO::Socket::INET->new(Proto => "tcp",
- PeerAddr => "172.16.67.252",
- LocalAddr => $localaddr,
- PeerPort => '80')
- or die "$!";
- push(@sock, $client);
- }
- while(1)
- {
- foreach $fh (@sock) {
- print $fh "GET /hostname.txt HTTP/1.1\r\nhost: 172.16.69.195\r\n\r\n";
- select(undef,undef,undef,0.03);
- }
- sleep 1;
- foreach $fh (@sock) {
- $fh->recv($data, 1024);
- }
- }
- #################################
- #connections.pl
- #
- @addr=qw/172.16.64.192 172.16.64.193 172.16.64.194 172.16.64.195 172.16.64.196/;
- #@addr=qw/172.16.64.192 172.16.64.193 172.16.64.194 172.16.64.195/;
- #@addr=qw/172.16.64.193/;
- for(@addr)
- {
- connectto($_);
- #sleep 10;
- }
- waitpid(-1,0);
- sub connectto {
- $localaddr=shift;
- for(1..23)
- {
- $pid=fork();
- if($pid==0)
- {
- exec("perl a.pl $localaddr");
- }
- select(undef,undef,undef,0.5);
- }
- }
复制代码 |
|