Perl 网络编程socket练习(四)

最新推荐文章于 2020-03-04 22:08:55 发布

jianblog

最新推荐文章于 2020-03-04 22:08:55 发布

阅读量784

点赞数

分类专栏： Perl 文章标签：网络编程

本文链接：https://blog.csdn.net/jianblog/article/details/24104325

版权

Perl 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

继续学习多路复用：

单进程服务端程序中，服务端程序响应监听后就进入循环处理连接的输入，使其无法响应多个客户端的连接；

在多进程中，主父进程各自分工，主进程监听，并在有连接时创建新子进程来处理连接；

而在多路复用技术中，单一进程通过轮询方式处理各个状态OK的句柄。个人理解上：首先采集所有句柄的状态，并获得所有进入准备处理，就是可以从句柄读、写以及监听socket有连接请求时的句柄集合，随后以循环遍历方式依次取出，并比较是那个类型的句柄，进而调用响应方法。正如书中所说，该方法没有用到任何多进程的技术。实现关键在于使用IO::Select模块提取句柄状态以及自定义判断脚本处理具体的句柄方法。

关键方法: IO::Select ( can_reader add remove)， sysreader, syswirte

以下是书中范例，仅用来说明实现多路复用的方法

#!/usr/bin/perl
use strict;
use warnings;

use IO::socket;
use IO::select;

my %sessions;		#保存所有连接句柄
my $quit = 0;
$SIG{int} = $SIH{TERM}  = sub { $quit++; exit 0};

### 创建socket对象
my $sock = IO::socket::INET->new(LocalPort => '65432',
				listen	   =>  2,
				Reuse	   =>  1)
		or die "cannot listen on port 65432:$@\n";
		
### select对象
my $reader = IO::Select->new() or die "cannot create IO::Select object\n";
## 添加需要检测的句柄
$reader->add($sock);

while( ! $quit )
{
	my @ready = $reader->can_read;		
	foreach my $handle ( @ready )
	{
		##有请求连接
		if ( $handle eq $sock )
		{
			my $conn = $sock->accept;
			$sessions{$conn} = 1;
			syswrite( $conn, "Welcome to VED\n");
			$reader->add($conn);		#$reader中除了监听sock，又添加了conn连接句柄
		}
		elsif ( my $rita = $sessions{$hanle} )
		{
			my $user_input;
			my $bytes = sysread($handle, $user_input, 1024);
			
		    if ( ! $bytes )
		    {
		    	$reader->remove($handle);
		    	$handle->close;
		    	delete $sessions{$handle};
		    }
		    if ( $bytes > 0 )
		    {
		    	chomp $user_input;
		    	syswrite(STDOUT, $user_input);
		    	syswrite($handle, "you say: \"$user_input\" \n");
		    }
		}
	}# end foreach my $handle
}

个人学习理解：

1.定义的IO::Select对象$reader，将所有会处理到句柄都添加到该对象中，然后再某些固定循环中调用$reader->can_read ，所返回的数组包含了前面添加的句柄，并且数组中的每个句柄都是可以立即处理的。关于这点说明下：比如我们普通方式$message = <$fh>,这是一种阻塞式，在没有从句柄接收到内容前，我们的程序都会挂起在这里而无法继续，而对句柄select对象调用can_read，会测试所有句柄的当前状态，只有$fh有内容时处于准备好状态，才返回给我们这个句柄，随后我们调用$message = <$fh>,是立即有结果的。 12.2.2章的一段内容需要仔细理解。select对象还有can_write方法等，这些还没有试验过。