Perl에서 동시 스레드를 사용하는 간단한 방법은 무엇입니까?

Question

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

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

test에 대한 호출을 Thread::Pool 또는 Thread::Pool::Simple을 사용하여 동시 스레드에서 실행되게하려면 어떻게해야합니까?

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