Избавление от зомби в perl

Question

Я написал сервер в perl, ожидая tcp-соединений. Каждый раз, когда сервер получает один, он разворачивает нового ребенка, который отвечает за него, и продолжает прослушивать другое соединение. (И поэтому он не может ждать SIGCHILD.) Ребенок делает то, что он должен делать и выходит, но продолжает «жить» как зомби. Какое решение, пожалуйста?

Answer 1

Установите $SIG{CHLD} = 'IGNORE';, чтобы система автоматически обрабатывала их для вас.

Или установите $SIG{CHLD} в подпрограмму и waitpid:

use POSIX qw(WNOHANG); 

$SIG{CHLD} = sub { 
    while((my $child = waitpid(-1, WNOHANG)) > 0) { 
     print "SIGNAL CHLD $child\n"; 
    } 
}; 

Если вы действительно хотите понять, как это работает (конечно, вы делаете :), вы должны прочитать perlipc

Существует также многое другое! info here on Stack Overflow