AnyEventã§echoサーム- ã™ãŽã‚ƒãƒ¼ã‚“メモã¾ã 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サーãƒ
é¢ç™½ãƒ©ãƒœBM11(ブッコミイレブン) 2009: AnyEvent用便利モジュール3本パック
AnyEvent::Intro
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠- ã¯ã¦ãªã®å‘ŠçŸ¥
unknownplace.org - 2009/07/10 - AnyEventã®è‰¯ã„ã¨ã“ã‚ã‚’3è¡Œã§
{{#tags}}- {{label}}
{{/tags}}