perl - 如何在 Perl 中发出并行 HTTP 请求，并按顺序接收它们？

Question

使用 Perl，我正在寻找一种简单的方法来并行执行一些 HTTP 请求，在这些请求完成后，我会按照发送它们的相同顺序获得响应，例如:

my ($google, $perl) = foobar(GET => 'http://www.google.com/',
                             GET => 'http://www.perl.org/');

是否有我应该查看的模块？

我知道我可以手工记账，但是在能够使用 jQuery's when method 来做这件事后我感觉被宠坏了，而且我很想拥有一个使用 Perl 的简单解决方案。

感谢您的帮助。

Answer 1

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或者您不能等待特定 child 的其他事情，您可以使用以下代码对结果进行排序:

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