在Perl中运行并行http发布请求

Question

I need to use http POST request for multiple URL's in parallel using perl. What I need to change in the code:

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

This code is sending request in sequential. But I need to send the request in parallel to make the request faster. What we need to change in the above code?

Thanks in advance

Answer 1

Execute each POST in a separate thread. see here for documentation

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