Perl socket 并发数受限

risepp

我分别在一台hpux和aix上创建了两个测试文件夹，每个文件夹有331个文件，然后运行client程序，代码如下：
#!/usr/local/bin/perl
use IO::Handle;
use Socket;

socket(FH, PF_INET, SOCK_STREAM, getprotobyname('tcp')) || die $!;

my $dest = sockaddr_in (8099, inet_aton('16.158.49.140'));
connect (FH, $dest) || die $!;
FH->autoflush(1);

open(DATA,"$ARGV[0]");
while(<DATA>)
{
#  print "this is " . $_ . "\n";
  send(FH, $_,o);
}

send(FH, $a,o);
close DATA;
close FH;


发现在一台机器上同时有331，245，217个进程连接请求的时候会出现数据丢失的情况。将这个数量减少到197数据能正常传送到server端。
在两台机器上同时运行client，其中一台出现如下错误：
A connection with a remote socket was reset by that socket. at ./client.pm line 8.
A connection with a remote socket was reset by that socket. at ./client.pm line 8.
A connection with a remote socket was reset by that socket. at ./client.pm line 8.
A connection with a remote socket was reset by that socket. at ./client.pm line 8.
A connection with a remote socket was reset by that socket. at ./client.pm line 8.
按照目前的机制，同一时间最大同时连接数应该在250左右。
server是运行在windows2003上的，代码如下：
#!/bin/perl
use Socket;

# initial the socket
my $proto = getprotobyname('tcp');
socket(FH, PF_INET, SOCK_STREAM, $proto) || die $!;

# bound to a port on the local machine by passing a port and an address data structure
my $sin = sockaddr_in (8099, INADDR_ANY);

bind (FH, $sin) || die $!;

# The listen function tells the operating system that the server is ready to accept incoming network connections on the port.
listen (FH, SOMAXCONN);

$SIG{CHLD} = sub{while(waitpid(-1,WNOHANG)>0){}};

while (1)
{
   while ($remote_addr=accept (NEW, FH))
   {
   my($port,$hisaddr)=sockaddr_in($remote_addr);   
   print "this is port " . $port . "\n";
   print "this is hisaddr " . inet_ntoa($hisaddr) . "\n";
   
   $pid = fork();
   die "Cannot fork: $!" unless defined($pid);
   if ($pid == 0)
   {
   $label=0;
   while (<NEW>)
   {
     $label++;
     if ($label==1)
     {
       $outfile="C:/hpoms/datafile/inbound" . $_;
          open(RESULT,">>$outfile");
     }
     else
     {
          if ($_ =~ /end\r$/)
          {
          $finalfile=$outfile;
          chomp($finalfile);
          chomp($outfile);
         
          $finalfile=~s/tmp/txt/;
          $finalfile=~s/\r//;
          $outfile=~s/\r//;
         
          $cmd="mv \"$outfile\"  \"$finalfile\"";
         
          system($cmd);
          }
          else
          {
         print RESULT $_;
          }
     }
   }
   close(RESULT);
   $label=0;
   
   exit(0);
   } # else 'tis the parent process, which goes back to accept()
   }
}

close(FH);


各位大虾能帮忙看看该问题是怎么回事？ 如何增加并发量呢？ 是否是os本身限制了并发数？ 谢谢！

risepp

我将server程序放到hpux上，则错误情况就消失了。有高手指教说windows默认并发数是256个，hpux则是受内核参数控制！

godsad

建议用http协议通信,iis没有并发限制

盗版win是突破不了并发限制的,什么最大连接数破解都是胡扯

xti9er

LS 才胡扯呢，D版和正版 在连接数那里根本没区别。

搞http 又要增加那么投入和风险，你这方案给的太不靠普。