101号室: [perl][POE] POEで簡単なチャットサーバーを作るPOE::Component::Server::TCPをつかったサーバー習作。 やることは １．ClientConnectedでクライアントのオブジェクト($heap->{client})を%clientsに入れる。 ２．ClientInputがきたら%clientsにあるクライアントすべてに送信。 ３．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
