perl - 如何为每个哈希键 fork 一个子进程？

Question

我有一个散列，当我尝试为每个散列键创建一个子进程时，它的行为并不符合我的预期。

请提出更改建议？假设 $pid 永远不会小于 0。

foreach $elem(keys %hash)
{
    $pid = fork();

    if ($pid) 
    {
       push @pids, $pid;
       print "in parent $$\n";
    }
    else
    { 
        print "in child $$\n"; 
    }
}

Answer 1

执行子进程的时候不要忘记退出，否则子进程也会执行fork，创建的进程总数会比预期的多。

foreach $elem(keys %hash)
{
    $pid = fork();

    if ($pid) 
    {
       push @pids, $pid;
       print "in parent $$\n";
    }
    else
    { 
        print "in child $$\n"; 
        exit(0); #<--- add this or exec external program
    }
}