Windows の STDIN を非同期で読み込む。 - Articles Advent Calendar 2010 Win32こんにちわ。mattn です。 先日、Maki_Daisuke さんからお題を頂いた件の回答です。 https://gist.github.com/742977 use AnyEvent::Handle; my $c = AE::cv; my $out = AnyEvent::Handle->new(fh => \*STDOUT); my $in; $in = AnyEvent::Handle->new( fh => \*STDIN, on_read => sub{ my $hdl = shift; $out->push_write($hdl->rbuf . "\n"); $hdl->rbuf = ""; } ); $out->push_write("Start\n"); $c->recv; これを Windows で実行してもウンともスンとも行かないという現象。色々調べている内に Win
