在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";