[NPWP笔记]多线程服务器

采用一个主线程负责接收来自客户端的连接请求，对于每一个客户端的请求，由以一个线程进行处理。这样客户的连接于客户的事务处理分别在不同的线程，主线程创建完成事务处理线程之后，将不再对其进行任何控制。事务处理线程负责来自客户端的请求，将接收到的内容显示到STDOUT。因为每一个客户的请求都会导致一个事务线程的创建与销毁，因此在效率上会有所影响。

 #!/usr/bin/perluse 5.006;use strict;use warnings;use threads;use IO::Socket;my $host = "localhost";my $port = 27002;my $quit = 0;$SIG{INT} = sub{$quit++};my $sock = IO::Socket::INET->new(Listen => 20, LocalPort => $port, Timeout => 60*60, Reuse => 1 ) or die "can not create listen sock:$@";warn "waiting for incoming connections on port $port/n";while(!$quit){next unless my $session = $sock->accept;my $t = threads->create(/&proccess_connection,$session);$t->detach;}close $sock;#thread subroutine,it print parameterssub proccess_connection{my $s = shift;print "process_connection start/n";my $peer = gethostbyaddr($s->peeraddr,AF_INET || $s->peerhost);my $port = $s->peerport;warn "connection from [$host,$port]/n";while(<$s>){chomp;print $_,"/n";}$s->close;print "process_connection end/n";}