如何在Perl中生成并行HTTP请求,并按顺序接收它们？

发布时间：2020-12-15 21:15:48 所属栏目：大数据来源：网络整理

导读：使用Perl,我正在寻找一种简单的方法来并行执行少量HTTP请求,在这里我得到的响应与我们在完成后发送的顺序相同,例如： my ($google,$perl) = foobar(GET = 'http://www.google.com/',GET = 'http://www.perl.org/'); 我应该看一个模块吗？我知道我可以手工完

使用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});
   ...
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!