multithreading - 在Perl中使用并发线程的简单方法？

Question

sub test {
   $val = shift;
   print $val * 2;
}

for $i (1..1000)
{
   test($i);
}

我如何获得使用 Thread::Pool或 Thread::Pool::Simple在并发线程中执行的对 test的调用？

Answer 1

use feature 'say';
use Thread::Pool::Simple;

sub test
{
    say shift;
    sleep(5);
}


my $pool = Thread::Pool::Simple->new (

    do => [\&test],

    min => 10,
    max => 20


);

$pool->add($_) for (1..50);
$pool->join;
say "Finished";