NET :: EASYTCP NET :: EASYTCP is een PERL-module waarmee u eenvoudig veilige, bandbreedtevriendelijke TCP / IP-clients en servers kunt maken.
Download nu

NET :: EASYTCP Rangschikking & Samenvatting

NET :: EASYTCP Tags

Perl-module TCP / IP IK P TCP TCP / IP-clients TCP / IP-servers

NET :: EASYTCP Beschrijving

Net :: EasyTCP is een Perl-module waarmee u gemakkelijk te maken veilige, bandbreedte-vriendelijke TCP / IP-clients en servers. Net :: EasyTCP is een Perl-module waarmee u gemakkelijk te maken veilige, bandbreedte-vriendelijke TCP / IP-clients en servers.Here zijn een aantal belangrijke eigenschappen van "Net EasyTCP": · Een eenvoudige module om zowel clients en servers · Object Oriented creëren -interface · Event-based callbacks in server mode · interne protocol om te zorgen voor alle gemeenschappelijke vervoersproblemen · Transparante encryptie · Transparant compressionSERVER Voorbeeld: gebruik Net :: EasyTCP; # # Maak de server object # $ server = new Net :: EasyTCP (mode => "server", port => 2345) || sterven "Fout bij het maken SERVER: $ @ n"; # # Vertel het ongeveer de callbacks te call # over bekende gebeurtenissen # $ server-> setcallback (data => gotdata, connect => aangesloten, koppelt => ontkoppeld) || sterven "Fout bij instellen Callbacks: $ @ n"; # # Start de server # $ server-> start () || sterven "Fout bij het starten SERVER: $ @ n"; # # Deze sub wordt aangeroepen wanneer een cliënt ons stuurt gegevens # sub gotdata {my $ client = shift; mijn $ serial = $ client-> serial (); mijn $ data = $ client-> data (); afdrukken "Client $ serial stuurde me een aantal gegevens, het verzenden van het terug aan hen againn"; $ Client-> send ($ data) || sterven "Fout bij het verzenden naar klant: $ @ n"; if ($ data EQ "STOP") {$ client-> close () || sterven "Fout bij sluiten van CLIENT: $ @ n"; } Elsif ($ data EQ "DIE") {$ server-> stop () || sterven "ERROR STOPPEN SERVER: $ @ n"; }} # # Deze sub wordt aangeroepen wanneer een nieuwe klant verbindt # sub aangesloten {my $ client = shift; mijn $ serial = $ client-> serial (); afdrukken "Client $ serial gewoon connectedn"; } # # Deze sub wordt aangeroepen wanneer een bestaande klant verbreekt # sub losgekoppeld {my $ client = shift; mijn $ serial = $ client-> serial (); afdrukken "Client $ serial gewoon disconnectedn"; } CLIENT VOORBEELD: gebruik Net :: EasyTCP; # # Maak een nieuwe client en maak verbinding met een server # $ client = new Net :: EasyTCP (mode => "cliënt", host => 'localhost', port => 2345) || sterven "Fout bij het maken CLIENT: $ @ n"; # # Verzenden en ontvangen een eenvoudige string # $ client-> send ( "Hello there") || sterven "Fout bij het verzenden: $ @ n"; $ Antwoord = $ client-> ontvangen () || sterven "ERROR-ontvangst: $ @ n"; # # Verzenden en ontvangen van complexe objecten / strings / arrays / hashes aan de hand #% hash = ( "zijn of" => "niet te zijn", "gewoon een" => "perl hacker"); $ Client-> send (% hash) || sterven "Fout bij het verzenden: $ @ n"; $ Antwoord = $ client-> ontvangen () || sterven "ERROR-ontvangst: $ @ n"; foreach (keys% {$ antwoord}) {print "Ontvangen key: $ _ = $ antwoord -> {$ _} n"; } # # Verzenden en ontvangen van grote binaire data # voor (1..8192) {for (0..255) {$ largedata = chr ($ _).; }} $ Client-> send ($ largedata) || sterven "Fout bij het verzenden: $ @ n"; $ Antwoord = $ client-> ontvangen () || sterven "ERROR-ontvangst: $ @ n"; # # Netjes loskoppelen van de server # $ client-> close (); Vereisten: · Perl

NET :: EASYTCP Gerelateerde software