Async::Queueをリリース - DebugIto's diaryPerlモジュールAsync::Queueをリリースã—ãŸã€‚ http://search.cpan.org/perldoc?Async%3A%3AQueue ã“ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯ã€ã‚らã‹ã˜ã‚登録ã—ãŸéžåŒæœŸå‡¦ç†ã‚’ç«‹ã¦ç¶šã‘ã«å®Ÿè¡Œã™ã‚‹éš›ã«ã€å®Ÿè¡Œä¸¦åˆ—度ã«åˆ¶é™ã‚’ã‹ã‘ã¦FIFO実行ã—ã¦ãれるã€ã¨ã„ã†ã‚‚ã®ã€‚ ã¶ã£ã¡ã‚ƒã‘ãŸè©±ã€async.jsã®queueオブジェクトã¨åŒã˜ã€‚(åŒã˜APIを切ã£ã¦ã‚ã‚‹) 以下ã€ä½¿ç”¨ä¾‹ã€‚ use strict; use warnings; use AnyEvent; use AnyEvent::HTTP; use Async::Queue; my $q = Async::Queue->new(concurrency => 3, worker => sub { my ($url, $callback) = @_; print STDERR "Start $url\n"; http_ge
{{#tags}}- {{label}}
{{/tags}}