POE::Component::Server::TCPをつかったサーバー習作。 やることは 1.ClientConnectedでクライアントのオブジェクト($heap->{client})を%clientsに入れる。 2.ClientInputがきたら%clientsにあるクライアントすべてに送信。 3.ClientDisconnectedで切れたクライアントのオブジェクトを%clientsから削除。 これだけでtelnetで繋いで会話するだけのサーバーが作れる。 空行含んでも60行足らずで書けた。POE便利杉 #!/usr/bin/perl use strict; use warnings; use POE qw(Component::Server::TCP); my %clients; # ID => clientオブジェクト my $acceptor_session_id