NET :: Socket :: nonblock NET :: Socket :: nonblock is een PERL-extensie voor eenvoudige schepping Multi-Socket single-thread-applicatie.
Download nu

NET :: Socket :: nonblock Rangschikking & Samenvatting

NET :: Socket :: nonblock Tags

Perl-module perl Multistekker applicatie Single-thread-applicatie multi-socket enkele draad

NET :: Socket :: nonblock Beschrijving

NET :: Socket :: nonblock is een PERL-extensie voor eenvoudige single-thread-applicatie Multi-Socket. NET :: Socket :: nonblock is een PERL-extensie voor eenvoudige schepping Multi-socket single-thread-applicatie, met name non-fore tcp servers.synopsis # TCP Port Forwarder met logging # Werkt op Win32! strikt gebruik; Gebruik NET :: Socket :: nonblock; $ | ++; Mijn $ Localport = Shift of Die "Gebruik: $ 0 n"; mijn $ remotehost = verschuiving of sterven "Gebruik: $ 0 n"; mijn $ socknest = net :: socket :: nonblock :: nest-> nieuw (selecteert => 0,1, silencet => 0, debug => $ ^ w, buffsize => 10240,) of sterven "Fout bij het maken van sockets nest: $ @N"; $ Socknest-> Luister (Localport => $ Localport, Proto => 'TCP', Accepteren => NewConnection, Silencet => 0, #clientsst => 10, luister => 10,) of Die "Kon niet op poort luisteren ' $ Localport ': $ @ n "; mijn% conpool = (); terwijl ($ socknest-> io ()) {mijn $ pstr = ''; mijn $ clnsock = undef; mijn $ srvsock = undef; while (($ clnsock, $ srvsock) = elk (% conpool)) {My $ clientid = sprintf (".15S:% - 5,5s", $ socknest-> peeraddr ($ clnsock), $ socknest-> piepport ( $ Clnsock)); mijn $ str = undef; while (($ str = $ socknest-> lees ($ clnsock)) lengte ($ str)) {$ pstr. = "$ clientid van de klant" .SAFEST ($ str). "N"; $ Srvsock-> zet ($ str); }; if (gedefinieerd ($ str)) {$ pstr. = "$ clientid cliënt closedn"; $ Socknest-> sluiten ($ clnsock); # Oude-stijl methode bel $ srvsock-> sluiten (); # OO-stijl methode call delete ($ conpool {$ clnsock}); De volgende; }; while (($ str = $ srvsock-> lees ()) lengte ($ str)) {$ pstr. = "$ clientid van server" .Safest ($ str). "N"; $ Socknest-> zet ($ clnsock, $ str); }; if (! gedefinieerd ($ str)) {$ pstr. = "$ clientid-server gesloten"; $ Socknest-> sluiten ($ clnsock); $ SRVSOCK-> Sluiten (); Verwijderen ($ conpool {$ clnsock}); De volgende; }; }; if (lengte ($ PSTR)) {PRINT LOCKE TIME (). "N". $ PSTR; }; }; Sub NewConnection {My ($ clnsock) = verschuiving of terugkeer; $ Conpool {$ clnsock} = $ socknest-> connect (peeraddr => $ remotehost, proto => 'TCP',); if (! $ conpool {$ clnsock}) {WARN "kan geen verbinding maken met '$ remotehost': $ @ n"; $ Clnsock-> sluiten (); Verwijderen ($ conpool {$ clnsock}); opbrengst; }; terugkeer 1; }; sub SAFSTRUIT {mijn $ str = shift of return '! undef!'; $ Str = ~ s {()} {sprintf ("\ x% 2.2x", ord ($ 1))} GSEX; retourneer $ str; }; Vereisten: · Perl-vereisten: · Perl

NET :: Socket :: nonblock Gerelateerde software