2011-08-17から1日間の記事一覧
use strict; use warnings; use 5.12.0; use Coro; use Coro::Timer; my @nums = qw/10 54 84 58 72 2 54 75 12 45 75 1 32 45 46/; my @coros; for(@nums){ push @coros , async { Coro::Timer::sleep $_[0]/10; say $_[0]; } $_ ; } $_->join for @coros;