perl - perl TCP服务器中已失效的子进程

Question

我尝试使用 Perl 创建 TCP 服务器。我能够成功创建 TCP 服务器来满足客户端请求。但是由于子进程已失效，我面临一个问题。完成执行后，所有子进程都将失效。我无法解决问题。

    my $server = IO::Socket::INET->new
   (
    LocalAddr    => 'localhost',
    LocalPort    => 48005,
    Type         => SOCK_STREAM,
    Reuse        => 1,
    Listen       => 5
    ) or die "could not open port\n";

warn "server ready waiting for connections.....  \n";

my $client;

while ($client = $server->accept())
{
   my $pid;
   while (not defined ($pid = fork()))
   {
     sleep 5;
   }
   if ($pid)
   {
       close $client;
   }
   else
   {
       $client->autoflush(1);
       close $server;
       &printClient();
   }
}

sub printClient
{
   warn "client connected to pid $$\n";
   print $client "Test";
   exit 0;
}

Answer 1

为避免僵尸进程（在列表中显示为“已失效”），您必须确认它们已停止使用等待功能。如果您对大多数 Unix 平台上的退出状态不感兴趣，则在程序开始时将 SIGCHLD 的处理程序设置为 IGNORE 就足够了：

$SIG{CHLD}='IGNORE';

有关更详细的讨论，请参见此处的信号处理部分：http: //perldoc.perl.org/perlipc.html