#! /usr/bin/env perl
use strict;
use warnings;
# こんな感じ。
# perl -MIO::Socket -e '$s=IO::Socket::INET->new(Listen=>1,LocalAddr=>"localhost:12345",Proto=>"tcp")->accept; print while<$s>'
# 受信ポート。
my $listen_addr = 'localhost:12345';
use IO::Socket;
my $listen_sock = IO::Socket::INET->new(
Listen => 1,
LocalAddr => $listen_addr,
Proto => 'tcp',
)
or die "IO::Socket が new できんかった。 : $!";
# 1つのクライアントと切断してから、次のクライアントの相手をする。
for(;;){
# 接続を待つ。
my $sock = $listen_sock->accept;
# クライアントから受信したデータをそのまま表示。
while( <$sock> ){
print;
}
$sock->close;
}