Perlで同時にWebリクエストを行う最速の方法は何ですか？

Question

Perlでいくつかの同時XMLフィードリクエストを作成する必要があります。 とは何ですか？これを行う方法はですか？

Answer 1

私はおそらく、おそらくこのように、AnyEventを使用します。私は似たようなのためにLWP::Parallel::UserAgentを使用

use AnyEvent; 
use AnyEvent::HTTP; 


sub get_feeds { 
    my @feeds = @_; 
    my $done = AnyEvent->condvar; 
    my %results; 
    $done->begin(sub { $done->send(\%results) }); 

    for my $feed (@feeds){ 
     $done->begin; 
     http_get $feed, sub { $results{$feed} = \@_; $done->end }; 
    } 

    $done->end; 
    return $done; 
} 

my $done = get_feeds(...); 
my $result = $done->recv; # block until all feeds are fetched 

Answer 2

。 PODの例：

require LWP::Parallel::UserAgent; 
$ua = LWP::Parallel::UserAgent->new(); 
... 

$ua->redirect (0); # prevents automatic following of redirects 
$ua->max_hosts(5); # sets maximum number of locations accessed in parallel 
$ua->max_req (5); # sets maximum number of parallel requests per host 
... 
$ua->register ($request); # or 
$ua->register ($request, '/tmp/sss'); # or 
$ua->register ($request, \&callback, 4096); 
... 
$ua->wait ($timeout); 
... 
sub callback { my($data, $response, $protocol) = @_; .... } 

Answer 3

HTTP::Async非常に高速でコード作成が簡単です。

Answer 4

実際には、AnyEvent::Curl::Multiは、libcurlの上に構築されたノンブロッキングライブラリです。非常に高速で同時利用可能なトン数。 AnyEvent :: HTTP、IMOよりもはるかに強力です。