AnyEvent::Socket で簡単な echo サーバを書く - shag の日記

AnyEvent::Socket で簡単な echo サーバを書く - shag の日記

AnyEvent の勉強がてら、簡単な echo サーバを書いてみた。只の echo サーバではつまらないので返事をす...概要を表示 AnyEvent の勉強がてら、簡単な echo サーバを書いてみた。只の echo サーバではつまらないので返事をする度に数値をインクリメントして付与するようにしてみる。 #!/usr/local/bin/perl use warnings; use strict; use AnyEvent; use AnyEvent::Socket; tcp_server undef, 12345, sub { my( $fh, $host, $port ) = @_; warn "connect from $host:$port\n"; add_client($fh); }; sub add_client { my $fh = shift; my $i = 0; my $poller; $poller = AnyEvent->io( fh => $fh, poll => 'r', cb => sub

• perl