Data::Monad::CondVar ã§AnyEvent を使ã„ã‚„ã™ãã™ã‚‹ - Articles Advent Calendar 2011 Hackerã“ã‚“ã«ã¡ã¯ã€‚hiratara ã§ã™ã€‚ã¿ãªã•ã‚“ã€æ„è˜ã¯é«˜ã¾ã£ã¦ã„ã¾ã™ã‹ï¼Ÿ ç§ã¯ä¸Šã€…ã§ã™ã€‚今回ã¯æ‹™ä½œã® Data::Monad::CondVar ã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’紹介ã•ã›ã¦é ‚ãã¾ã™ã€‚ モジュールåã«Monad ã¨ã„ã†NGワードãŒå…¥ã£ã¦ã„ã¾ã™ãŒã€ã“ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯AnyEvent 用ã®JSDeferred ã§ã™ã€‚JSDeferred ã¯ã¿ãªã•ã‚“好ãã§ã™ã？ å«Œã„ãªäººã¯å¥½ãã«ãªã‚‹ã¾ã§ä½•åº¦ã‚‚ç¹°ã‚Šè¿”ã—使ã£ã¦å¥½ãã«ãªã‚Œã°ã„ã„ã¨æ€ã„ã¾ã™ã€‚ コールãƒãƒƒã‚¯æ–¹å¼ã®é–¢æ•°ã‚’é †ã«å‘¼ã³å‡ºã™å ´åˆã€ä¸€èˆ¬ã«è¨˜è¿°ãŒãƒã‚¹ãƒˆã—ã¾ã™ã€‚ use AnyEvent; sub add1($$) { my ($n, $cb) = @_; my $t; $t = AE::timer 1, 0, sub { $cb->($n + 1); undef $t; }; } my $cv = AE::cv; add1 0 => sub { my $n
AnyEvent::Intro ãƒãƒ§ãƒ¼è¨³ ãã®ï¼‘ - download_takeshi’s diary
{{#tags}}- {{label}}
{{/tags}}