最近ちょくちょく勉強している、AnyEvent で簡単な echo サーバを作ってみた。 入力された文字を単純に返すだけだと面白くないので、入力した時の日時を表示するようにしてみた。 #!/usr/bin/env perl use strict; use warnings; use feature qw/say/; use DateTime; use AnyEvent; use AnyEvent::Socket; my $HOST = '127.0.0.1'; my $PORT = '18888'; tcp_server $HOST, $PORT, sub { my ($fh, $host, $port) = @_; say "connected $host:$port"; &add($fh); }; AnyEvent->condvar->recv; sub add { my $fh =