小编Dar*_*ush的帖子

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

以下是相关代码的一部分:

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