Net :: easytcp. net :: easwtcp ist ein Perl-Modul, mit dem Sie einfachere, bandbreitenfreundliche TCP / IP-Clients und Server erstellen können.
Jetzt downloaden

Net :: easytcp. Ranking & Zusammenfassung

Net :: easytcp. Stichworte

Perl-Modul TCP / IP. IP TCP TCP / IP-Clients TCP / IP-Server

Net :: easytcp. Beschreibung

NET :: EasyTCP ist ein Perl-Modul, mit dem Sie einfachere, bandbreitenfreundliche TCP / IP-Clients und Server erstellen können. NET :: EasyTCP ist ein Perl-Modul, mit dem Sie einfachere, bandbreitenfreundliche TCP / IP-Clients und Server erstellen können. Hier sind einige wichtige Funktionen von "net easytcp": · Ein einfaches Modul, um beide Clients und Server zu erstellen · Objektorientiert Schnittstelle · Eventbasierte Rückrufe im Servermodus · Internes Protokoll, um sich um alle gängigen Transportprobleme zu kümmern · Transparente Verschlüsselung · Transparentes Komprimierverzeichnis Beispiel: Verwenden Sie net :: easytcp; # # Erstellen des Server-Objekts # $ server = new net :: easytcp (MODE => "Server", Port => 2345,) || Die "Fehler erstellen des Servers: $ @ n"; # # Erzählen Sie es mit den Callbacks, um # auf bekannten Ereignissen aufzurufen # $ server-> setcallback (data => gotdata, connect => verbunden, disconnect => getrennt,) || Die "Fehlereinstellung Callbacks: $ @ n"; # # Starten Sie den Server # $ server-> starten () || Die "Fehlerstartserver: $ @ n"; # # Dieser Sub wird aufgerufen, wenn ein Client US -Daten # SUBSDATA {MY $ Client = Shift sendet; meine $ serial = $ client-> serielle (); meine $ data = $ client-> daten (); drucken "Client $ serial hat mir einige Daten gesendet, und schickte es wieder an sie wieder zurück"; $ Client-> Senden ($ Daten) || Die "Fehler beim Senden an den Client: $ @ n"; if ($ data eq "quit") {$ client-> schließen () || Die "Fehler schließen Client: $ @ n"; } ELSIF ($ data eq "sterben) {$ server-> stop () || Die "Fehlerstoppserver: $ @ n"; }} # # Dieser Sub wird aufgerufen, wenn ein neuer Client miteinander verbunden ist # Sub verbunden {My $ Client = Shift; meine $ serial = $ client-> serielle (); drucken "Client $ seriell nur miteinander"; } # # Dieser Sub wird aufgerufen, wenn ein vorhandener Client # Sub-Trennen {My $ Client = Shift trennen soll; meine $ serial = $ client-> serielle (); drucken "Client $ seriell nur disconnectedn"; } Client-Beispiel: Verwenden Sie net :: easytcp; # # Erstellen Sie einen neuen Client und verbinden Sie ihn mit einem Server # $ Client = NEW NET :: EasyTCP (MODE => "Client", Host => 'localhost', port => 2345,) || Die "Fehler erstellen des Clients: $ @ n"; # # Senden und Empfangen einer einfachen String # $ Client-> Senden ("Hallo dort") || Die "Fehler sending: $ @ n"; $ antworten = $ client-> empfangen () || Die "Fehler beim Empfang: $ @ n"; # # Senden und Empfangen komplexer Objekte / Zeichen- / Arrays / Hashes nach Referenz #% Hash = ("nicht sein oder" => "nicht sein", "nur ein anderer" => "Perl-Hacker"); $ Client-> Senden (% Hash) || Die "Fehler sending: $ @ n"; $ antworten = $ client-> empfangen () || Die "Fehler beim Empfang: $ @ n"; foreach (Schlüssel% {$ Antwort}) {drucken "Empfangene Taste: $ _ = $ Antwort -> {$ _} n"; } # # Senden und empfangen große binäre Daten # für (1..8192) {für (0..255) {$ largedata. = Chr ($ _); }} $ Client-> Senden ($ largedata) || Die "Fehler sending: $ @ n"; $ antworten = $ client-> empfangen () || Die "Fehler beim Empfang: $ @ n"; # # Cleanly trennen Sie ihn von dem Server # $ client-> close (); Anforderungen: · Perl

Net :: easytcp. Zugehörige Software