perl - ハッシュキーごとに 1 つの子プロセスをフォークするにはどうすればよいですか?

Question

ハッシュがあり、ハッシュ キーごとに 1 つの子プロセスを作成しようとすると、期待どおりに動作しません。

変更を提案してください。 が 0 未満になることはないと仮定します。$pid

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( ! defined( $pid )){
        die "could not fork\n";
    }

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