在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(...);