江天一色
业精于勤荒于嬉,行成于思毁于随
2017年3月21日星期二
perl : Coro 多进程 示例
#!/usr/bin/perl
use Coro;
my $arr = [ 1, 3, 5 , 4 , 2 ,7 ];
my @tasks;
my @res;
for my $i (0 .. $#$arr){
push @tasks, async {
my $x = $arr->[$i];
my $s = $x*$x;
$res[$i] = $s;
}
}
for (@tasks){
$_->join;
}
print $_, "\n" for @res;
没有评论:
发表评论
较新的博文
较早的博文
主页
订阅:
博文评论 (Atom)
没有评论:
发表评论