0

我已经实现了用于解析大文件的分叉概念，如下所示，但似乎不正确。我在代码中遇到的一些问题是一些变量没有被访问。

    #ALL the variable in Complete CAPS are global variable
    TLog("MSG",1,"Parent process $$");
    TLog("MSG",4,"Creating child process for $$");
    my $MAX_FORK       = 2;
    my $forkCount      = 0;
    my $processCounter = 0;
    my @childId   = ();

    foreach my $fileNameFasta (@{$ref_array_file}) {

        my $pid = fork();


        if ( $pid ) {

            TLog("MSG",1,"child process created : $pid");
            push @childId,$pid;

            $forkCount++;
        }
        elsif ( $pid == 0 ) {

            my $outputFile = $STAT_FILE;
            my $pidLocal   = $childId[$processCounter]; #Use of unintialized variable

            $outputFile =~s/\d{1,}\.txt$/$pidLocal\.txt/og; #hence naming of all ouput file are same                
            TLog("MSG",1,"For $pidLocal Creating output file for stat : $outputFile");

            open my $outputfh,'>',$outputFile;
            GenerateTupleCountFile($outputfh,$fileNameFasta);    
            close  $outputfh;


            TLog("MSG",5,"Calculation completed for $pidLocal");
            TLog("MSG",5,"Plz check the $outputFile");
            $processCounter++;

            exit(0);

        }

        if ( $forkCount >= $MAX_FORK ) {
            foreach (@childId) {
                   my $tmp = waitpid($_, 0);
                   TLog("MSG",5,"Process completed for with pid $tmp");
            }
        }
    }
}

如果我错了，请给我正确的方向。

4

1 回答 1

3

一旦分叉发生，父母和孩子都是自主的。

@childID在之后，您永远不会在数组中设置任何内容，到fork那时孩子知道那里为它写了什么已经太晚了。你需要getpid()在孩子中使用，或者魔法变量—— $$，或者（如果你使用过use English '-no_match_vars';）$PID或者$PROCESS_ID。父级从不递增$processCounter。

类似地，子级增加其副本$processCounter，但这不会影响父级中的变量。

于 2013-01-28T15:29:32.743 回答