perl - perl で並列 HTTP ポスト リクエストを実行する

Question

perl を使用して、複数の URL に対して http POST リクエストを並行して使用する必要があります。コードで変更する必要があるもの:

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

@urls = ('http://url1.com:10001','http://url2.com:10002','http://url3.com:10003');

foreach (@urls)
{
   my $req = HTTP::Request->new(POST => $_);
   my $resp = $ua->request($req);
}

このコードはリクエストを順番に送信しています。ただし、リクエストを高速化するには、リクエストを並行して送信する必要があります。上記のコードで何を変更する必要がありますか?

前もって感謝します

Answer 1

各 POST を個別のスレッドで実行します。ドキュメントについては、こちらを参照してください

 use threads;
 my $t = threads->create(...);