Perl Coro的用法

今天研究了下，记录下来。

#!/usr/bin/perl
    use Coro;
    use AnyEvent::HTTP;

    my @coro;

    foreach my $i (1..1000){
        push @coro, async{
            http_get 'http://www.baidu.com', cb => Coro::rouse_cb;
            print "开始并发$i...
";
            my @res = Coro::rouse_wait;
            print "$i返回结果$res[1]->{Status}
";
        };
        cede;
    }
    $_->join foreach @coro;