GAC なぜなにGAC->Tipsちょと古いコードなのですが、お役にたつこともあるかなと思い貼り付けてみます。 use strict; use IO::Socket; use IO::Select; my $lsn = new IO::Socket::INET(Listen => 1, LocalPort => 4747) or exit; my $sel = new IO::Select($lsn); $| = 1; while (my @can_read = $sel->can_read) { for my $sock (@can_read) { if ($sock == $lsn) { my $new = $lsn->accept; # ソケットを新規生成 $sel->add($new); # IO::Selectオブジェクト追加 printf "接続しました: %s %s\n", $new->peerhost,
