Warum hört mein ActivePerl-Programm unter Windows auf, Socketverbindungen zu akzeptieren?

Question

Ich benutze fork() auf Perl auf Windows (ActivePerl) für eine grundlegende Socket-Server, aber anscheinend gibt es Probleme (es akzeptiert keine Verbindungen nach ein paar Mal), gibt es eine Umgehungslösung? Hier

ist der Teil des entsprechenden Code:

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

Answer 1

Ich würde empfehlen, Net::Server zu installieren und stattdessen zu verwenden, da es wahrscheinlich keinen zwingenden Grund gibt, die gesamte Abhör- und Forking-Logik selbst zu schreiben, und Net :: Server ist bereits für viele Plattformen gut getestet ActivePerl. Die Persönlichkeit Net::Server::Fork ist dem Code, den Sie schreiben, am ähnlichsten, obwohl ich stattdessen Net::Server::Prefork vorschlagen würde, da es bessere Leistung zu minimalen Kosten bietet.

Answer 2

Windows keine Gabel hat. Versuche, es zu emulieren, ergeben normalerweise weniger als ideale Ergebnisse.

Die beste Lösung ist wahrscheinlich, Ihren Code neu zu schreiben, so dass er nicht Gabel verwendet. Vielleicht Threads?

Answer 3

Wenn durch ein paar, meinen Sie genau 64, dann sollten Sie this discussion sehen. Im übergeordneten Prozess sollten Sie ab und zu die waitpid -1,&WNOHANG aufrufen, um die fertigen Kinder zu bereinigen.