名前¶ POE - multitasking and networking framework for perl POE - マルチタスク及びネットワークのperl用フレームワーク 概要¶ #!/usr/bin/perl -w use strict; # POEを使う! use POE; sub handler_start { my ($kernel, $heap, $session) = @_[KERNEL, HEAP, SESSION]; print "Session ", $session->ID, " has started.\n"; $heap->{count} = 0; $kernel->yield('increment'); } sub handler_increment { my ($kernel, $heap, $session) = @_[KERNEL, HEAP, S
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
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く