[NPWP笔记]使用多进程处理客户请求

之前《Develop a multi-process server with perl》中描述了采用都进程处理客户端的请求，监听Socket一直处于accept状态，当有客户端的请求到达时，服务器创建一个子进程，后续对客户端的请求处理全部交由此子进程。这种用法会导致频繁的创建与关闭子进程，影响服务器的性能，尤其是在大并发的情况下显得更为严重。

     本文中依旧采用多线程处理客户端的请求，与上次的多进程不同的是，我们预先创建指定数目的子进程，每一个客户端的连接请求到来时，不在需要创建子进程（预先已经创建好了）。

     本例子程序还存在问题，预先启动的子进程是固定数目，下面的代码中采用NUM=2，也就是说此服务器尽可以同时处理两个客户端的请求，只要是服务器的处理没有处于accept状态，之后所有的请将将会被拒绝。

 

#............ use IO::Handle; use strict; use warnings; use IO::Socket; use POSIX 'WNOHANG'; use constant NUM => 2; my $host = "localhost"; my $port = 27002; $SIG{CHLD} = sub{ while(waitpid(-1,WNOHANG) > 0) {} }; my $socket = IO::Socket::INET->new(LocalPort => $port, Listen => SOMAXCONN, Reuse => 1, ) or die "cann't create listen socket:$!"; #............NUM..............accept for(1..NUM){ #fork a child my $child = fork; next if $child; child_process($socket); } #........................accept.. #..................... sub child_process{ print "child_process start/n"; my $s = shift; while(1){ next unless my $c = $s->accept; while(<$c>){ chomp; print $_."/n"; } close $c; } close $s; print "child_process end/n"; }

客户端代码与之前的代码相同，测试服务器时，在一个终端服务器，另开两个终端分别用于启动客户端。此时两个客户端的请求都可以正常的被处理。之后再新的终端启动另一个客户端。

#!/usr/bin/perl #read from STDIN and send string to server #client request until you terminate use strict; use IO::Socket; use warnings; my $host = "localhost"; my $port = 27002; $SIG{INT} = sub{exit}; my $sock = IO::Socket::INET->new("$host:$port"); while(defined(my $msg = STDIN->getline)){ print $sock $msg; } $sock->close; ~