どのようにしてPerlで並列HTTP要求を行い、順番にそれらを受け取るのですか？ Perlの使用

Question

は、私は戻って、私は、彼らが完全に後にそれらを送っ同じ順序で回答を得る並列に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たり、特定の子のために待つことができない何か他のものを使用した場合、あなたは結果を注文するには、次のコードを使用することができますが：

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

Answer 2

私はMojoのファンです。 Mojo::UserAgentドキュメントから ：

use Mojo; 
use Mojo::UserAgent; 
# Parallel requests 
my $ua = Mojo::UserAgent->new; 
$ua->max_redirects(5); 
my $delay = Mojo::IOLoop->delay; 
for my $url ('http://www.google.com/', 'http://www.perl.org/') { 
    $delay->begin; 
    $ua->get($url => sub { 
    my ($ua, $tx) = @_; 
    $delay->end($tx->res->dom); 
    }); 
} 
my @responses = $delay->wait; 
print join "\n", @responses 

お楽しみください！

EDITところで

。あなたが間にそれを行うことができ、最後に応答を処理する必要はありません。

# ... 
$ua->get($url => sub { 
    my ($ua, $tx) = @_; 
    $delay->end(1); 
    # process $tx->res here 
}); 
# ... 
$delay->wait;