我在基於套接字服務器的Windows(ActivePerl)上使用Perl上的fork()
,但顯然存在問題(幾次後它不會接受連接),是否有任何解決方法?爲什麼Windows上的ActivePerl程序停止接受套接字連接?
下面是相關的部分代碼:
while($client = $bind->accept()) {
$client->autoflush();
if(fork()){ $client->close(); }
else { $bind->close(); new_client($client); exit(); }
}
Windows上的Perl在後臺模擬帶有線程的fork()。 – 2010-03-14 01:02:31