基本的なソケットサーバーとしてWindows上のPerl(ActivePerl)を使用fork()
していますが、明らかに問題があります(数回経過すると接続を受け入れません)、回避策はありますか?
関連するコードの一部は次のとおりです。
while($client = $bind->accept()) {
$client->autoflush();
if(fork()){ $client->close(); }
else { $bind->close(); new_client($client); exit(); }
}