Обновление массива из main :: в функции обработчика сигнала (Perl)

Question

Я хотел бы сохранить массив дочерних элементов, которые я разветвил, а затем удалить их при выходе (чтобы ограничить количество разветвленных процессов, которые у меня есть в любой момент времени). Я подумал, что мог бы быть умным и сделать это, используя @main :: pid_list для удаления или соединения, но без радости. Я могу успешно вытолкнуть элемент, но, очевидно, он не удалит правильный pid. Любые идеи, как справиться с этим, или мне лучше сделать это совершенно по-другому?

#!/usr/bin/perl -w
use POSIX ":sys_wait_h";
use Data::Dumper;

# Only allow 5 processes running at a time

sub REAPER {
    my $child = shift;
    while (($child = waitpid(-1, WNOHANG)) > 0) {
        # Need to remove child from pidlist here
        #pop(@main::pid_list);                     #This works
        #delete($main::pid_list[$child]);          #This does not

    }
    $SIG{CHLD} = \&REAPER;
}

@pid_list = ();
@files = (1 .. 20);

foreach my $file (@files) {
    my $processed = 'false';
    while ($processed eq 'false') {

        print "Working on file: $file\n";
        $SIG{CHLD} = \&REAPER;
        if (scalar(@pid_list) < 5) {
            $pid = fork();
            if ( $pid == 0 ) {
                print "$$: Child Processing file #" . $file . "\n";
                sleep(10);
                print "$$: Child done processing file #" . $file . "\n";
                exit(0);
            }
            push(@pid_list, $pid);
            print Dumper(@pid_list);
            $processed = 'true';
        }
        sleep(1);
    }
}

# Since we are at the end we need to wait for the last process to end
print "PID: $$ End of parent program\n";

exit 0;

Answer 1

Использовать хеш-таблицу вместо массива.

sub REAPER {
    my $child = shift;
    while (($child = waitpid(-1, WNOHANG)) > 0) {
        # Need to remove child from pidlist here
        delete $main::pid_list{$child};
    }
    $SIG{CHLD} = \&REAPER;
}

...

if ((scalar keys %main::pid_list) < 5) {
    ...
    if ($pid != 0) {
        ...
       exit(0);
    }
    $main::pid_list{$pid}++;
}

Answer 2

Попробуйте @main::pid_list = grep $_ != $child, @main::pid_list;