まだAnyEventのあたりの使い方とか挙動とかを把握しきれていない。 ちょっと練習にAnyEvent::SocketとAnyEvent::Handleで超シンプルなechoサーバを書いてみた #!/usr/bin/perl use strict; use warnings; use AnyEvent::Socket; use AnyEvent::Handle; my $cv = AE::cv; tcp_server undef, 1982, sub { my $hdl; $hdl = AnyEvent::Handle->new( fh => shift, on_read => sub { $hdl->push_write(delete $hdl->{rbuf}); }, on_eof => sub {}, ); }; $cv->recv; これを動かしておいて、外から繋ぐとechoサーバ