[NPWP笔记]多线程服务器

最新推荐文章于 2025-11-24 16:27:21 发布

原创最新推荐文章于 2025-11-24 16:27:21 发布 · 696 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#多线程 #subroutine #session #socket #服务器 #io

perl 专栏收录该内容

10 篇文章

订阅专栏

本文介绍了一个使用Perl实现的简单多线程网络服务器。该服务器通过主线程监听客户端连接请求，并为每个请求创建一个新的线程来处理客户端的事务。文章提供了完整的源代码示例，演示了如何使用Perl的线程库和IO::Socket模块来实现这一功能。

采用一个主线程负责接收来自客户端的连接请求，对于每一个客户端的请求，由以一个线程进行处理。这样客户的连接于客户的事务处理分别在不同的线程，主线程创建完成事务处理线程之后，将不再对其进行任何控制。事务处理线程负责来自客户端的请求，将接收到的内容显示到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"; }