墨迹哥's

摘要： 今天研究了下，记录下来。#!/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...\n"; my @res = Coro::rouse_wait; print "$i返回结果$res[1]-... 阅读全文