[NPWP笔记]multiplexed客户端

使用multiplexed技术监听STDIN的可读数据，如果有数据可用，则将其读入到缓存中，之后通过syswrite写入到SOCKET。

use strict; use warnings; use IO::Socket; use IO::Select; my $host = "192.168.1.102"; my $port = 27002; my $socket = IO::Socket::INET->new("$host:$port") or die $@; my $readers = IO::Select->new() or die "can not create select read object"; $readers->add(/*STDIN); $readers->add($socket); my $buffer; #主循环中监听STDIN和$socket可读，如果二者之一包含可读数据，则执行IO操作 while(1){ print "while/n"; my @ready = $readers->can_read; for my $handle (@ready){ if($handle eq /*STDIN){ print "STDIN!/n"; if(sysread(STDIN,$buffer,1024) > 0){ syswrite($socket,$buffer); } } if($handle eq $socket){ } } } $socket->shutdown(2);

 

这个脚本在Windows和Ubuntu两个操作系统有不同是输出数据。Windows平台则程序一直处于while循环中，每一次的$readers->can_read都会立刻返回，从而连续不断的输出"while"字符串；而在Ubuntu平台，输出为我们的期望结果，每一次输出"while"之后，等待用户输入用户数据，之后通过SOCKET发送至服务器。