如何为每个哈希键派生一个子进程？

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

当执行子，不要忘记退出，否则子进程也将执行该叉，和创建的进程的总数将是高于预期。

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 
    } 
} 

Answer 2

你应该检查，看看是否fork()工作：

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

    if(! defined($pid)){ 
     die "could not fork\n"; 
    } 

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