使用Perl,我正在寻找一种简单的方法来并行执行少量HTTP请求,在这里我得到的响应与我们在完成后发送的顺序相同,例如：
my ($google,$perl) = foobar(GET => 'http://www.google.com/',GET => 'http://www.perl.org/');
我应该看一个模块吗？
我知道我可以手工完成簿记,但是在使用jQuery’s when method能够做到这一点之后我觉得被宠坏了,我很想用Perl做一个简单的解决方案.
谢谢你的帮助.
解决方法
use threads;
use LWP::UserAgent qw( );
my $ua = LWP::UserAgent->new();
my @threads;
for my $url ('http://www.google.com/','http://www.perl.org/') {
push @threads,async { $ua->get($url) };
}
for my $thread (@threads) {
my $response = $thread->join;
...
}
最好的部分是父母不等待所有请求完成.一旦正确的请求完成,父母将解锁以处理它.
如果您使用Parallel::ForkManager或其他您无法等待特定孩子的东西,您可以使用以下代码来订购结果：
for my $id (0..$#urls) {
create_task($id,$urls[$id]);
}
my %responses;
for my $id (0..$#urls) {
if (!exists($responses{$id})) {
my ($id,$response) = wait_for_a_child_to_complete();
$responses{$id} = $response;
redo;
}
my $response = delete($responses{$id});
...
}