perl 的多线程与多进程

多进程：拥有多个pid，独立占用内存。

多线程：不具备独立的pid.

选择：需要多线程/进程的部分独立生成结果的时候，不存在共有变量的输出等情况下可选择多进程。（注意独立）。当多线程部分需要返回结果且汇总的时候（非完全独立），可以选择多线程模块。

多进程包 ：Parallel::ForkManager

用法示例：

use Parallel::ForkManager;    

my $Threshold1=@sample;

my $pm = Parallel::ForkManager->new($Threshold1);

    foreach my $sample(@sample){

        $pm->start and next;

        sub();

        $pm->finish;   

    }

    $pm->wait_all_children;

 

示例2 不用包

my $count = 0;
foreach my $sample(keys %hash){
    $count++;
    my $pid = fork;
if($pid == 0){
   {sub()};
   exit;
}
if ($count == $Thread_num){
    my $pid = waitpid -1,0;
    $count-- if $pid > 0;
}
}
while( my $pid = waitpid( -1,0 ) > 0){}