Netz :: Sockel :: Nonblock net :: Socket :: Nonblock ist eine Perl-Erweiterung für die einfache Anwendungs-Multi-Sockel-Single-Thread-Anwendung.
Jetzt downloaden

Netz :: Sockel :: Nonblock Ranking & Zusammenfassung

Netz :: Sockel :: Nonblock Stichworte

Perl-Modul Perl Multi-Socket-Anwendung Single-Thread-Anwendung Multi-Sockel Single-Thread

Netz :: Sockel :: Nonblock Beschreibung

NET :: Socket :: Nonblock ist eine Perl-Erweiterung für ein einfaches Anwendungs-Multi-Sockel-Single-Thread-Anwendungen. NET :: Socket :: Nonblock ist eine Perl-Erweiterung für die einfache Erstellung Multi-Socket-Single-Thread-Anwendung, insbesondere Nicht-Gabel-TCP-Server.Synopsis # TCP-Anschlussredner mit der Protokollierung # arbeitet auf win32! Verwenden Sie streng; Verwenden Sie net :: Socket :: Nonblock; $ | ++; meine $ localport = verschieben oder sterben "uage: $ 0 n"; Meine $ remoTehost = Shift oder Die "Usage: $ 0 N"; Mein $ socknest = net :: Socket :: Nonblock :: Nest-> NEU (Selectt => 0.1, Silencet => 0, Debug => $ ^ W, Buffsize => 10240,) oder sterben "Fehler Erstellen von Sockets Nest: $ @n"; $ Socknest-> Anhören (localport => $ localport, proto => 'TCP', akzeptieren => NEUECONNECTION, SILENCET => 0, #ClientSt => 10, hören => 10,) oder sterben "konnte nicht auf den Port hören ' $ Localport ': $ @ n'; meine% contool = (); während ($ socknest-> io ()) {mein $ pstr = ''; mein $ clnsock = undef; mein $ srvsock = undef; Während (($ clnsock, $ srvsock) = jeweils (% Contool)) {mein $ clientid = sprintf (".15s:% - 5,5s", $ socknest-> peeraddr ($ clnsock), $ socknest-> peerport ( $ Clnsock); meine $ str = undef; Während (($ str = $ socknest-> lesung ($ clnsock)) länge ($ stgr)) {$ pstr. = "$ ciferd von client" .sfestr ($ t str). "n"; $ Srvsock-> Puts ($ STR); }; Wenn (! Definiert ($ STR)) {$ pstr. = "$ ClientID-Client geschlossen"; $ Socknest-> close ($ clnsock); # Old-Style-Methode rufen $ srvsock-> close (); # OO-Style-Methode-Anruf löschen ($ CONPOOL {$ clnsock}); nächste; }; Während (($ str = $ srvsock-> line ()) Länge ($ STR)) {$ pstr. = "$ centiden von server" .sfestr ($ STR). "n"; $ Socknest-> Puts ($ CLNSOCK, $ STR); }; Wenn (! Definiert ($ STR)) {$ pstr. = "$ clientID-Server geschlossen"; $ Socknest-> close ($ clnsock); $ Srvsock-> close (); Löschen ($ CONPOOL {$ clnsock}); nächste; }; }; if (Länge ($ pstr)) {eduklickszeit (). "n". $ pstr; }; }; Sub Newconnection {My ($ clnsock) = Schicht oder Rückkehr; $ Contool {$ clnsock} = $ Socknest-> Connect (Peeraddr => $ RemoTehost, Proto => 'TCP',); Wenn (! $ CONPOOL {$ clnsock}) {Warn "kann keine Verbindung zu '$ RemoTehost': $ @ n einschalten. $ Clnsock-> close (); Löschen ($ CONPOOL {$ clnsock}); Rückkehr; }; Rückgabe 1; }; SUB SAFSTREST {MEINE $ STR = Schicht oder Rückkehr '! undef!'; $ Str = ~ s {()} {sprinf ("\ x% 2.2x", ord (1 $))} GSEX; Rückgabe $ str; }; Anforderungen: · Perl Anforderungen: · Perl.

Netz :: Sockel :: Nonblock Zugehörige Software