[NPWP笔记]多线程服务器

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

 #!/usr/bin/perl use 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 parameters sub 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"; }