最近想嘗試一下 Perl 的網路程式設計
寫了以下的支援多人連線的 echo 程式
#!/usr/bin/perl
use 5.012;
use strict;
use warnings;
use Term::Cap;
use IO::Socket::INET;
$|++;
my $listener = IO::Socket::INET->new(LocalPort => 3126,
Listen => 5,
Proto => 'tcp',
Reuse => 1,
Blocking => 0,) or die "Cannot create
socket\n";
$listener->autoflush(1);
while (1) {
next unless my $client = $listener->accept();
defined (my $child = fork()) or die "fork error: $!";
if ($child == 0) {
$listener->close();
ctd ($client);
exit 0;
}
$client->close();
}
sub ctd {
my ($socket) = @_;
my $data;
$socket->send ("Hi> ");
while (sysread($socket, $data, 1) == 1) {
#print $data;
$socket->send ("$data");
$socket->send ("\r\nHi> ") if ($data =~ '\n');
last if ($data eq 'q');
}
$socket->close();
}
====================================
目前想做一點改進
有辦法讓這個程式的 I/O 變成 non-blocking 的嗎?
想要做到 client 這邊輸入東西不用按下 Enter 送出 server 端就可以抓到 socket 送
來的 keyboard input
想做一些簡單的互動遊戲XDD
麻煩了 <(_ _)>

你想消除的 "blocking" 感覺是 client 端讀 console 的 linebuffer 耶, 把 client 改過這個 server 應該不用動.

建議用 AnyEvent::Socket :-)

@scwg: 那要怎麼做到像 BBS 這樣可以即時響應的功能呢@@@kornelius: 感謝，我試試看！成功囉~ 感謝！http://paste.ubuntu.com/987494/http://paste.ubuntu.com/987472/基本的 IO 都做好囉 :D