windows - 为什么我在 Windows 上的 ActivePerl 程序停止接受套接字连接？

Question

我在 Windows 上的 Perl (ActivePerl) 上使用 fork() 作为基本的套接字服务器，但显然存在问题(它不会在几次后接受连接)，是吗任何解决方法？

相关代码部分如下:

while($client = $bind->accept()) {
    $client->autoflush();
    if(fork()){ $client->close(); }
    else { $bind->close(); new_client($client); exit(); }
}

Answer 1

我建议安装 Net::Server并改为使用它，因为可能没有令人信服的理由让您自己编写所有的监听和 fork 逻辑，而且 Net::Server 已经经过充分测试，可以在包括 ActivePerl 在内的许多平台上工作。 Net::Server::Fork personality 与您正在编写的代码最相似，尽管我建议使用 Net::Server::Prefork相反，因为它以最低的成本提供更好的性能。