Poe :: Komponente :: Client :: Ping PoE :: Komponente :: Client :: Ping ist ein nicht blockierender ICMP-Ping-Client.
Jetzt downloaden

Poe :: Komponente :: Client :: Ping Ranking & Zusammenfassung

Poe :: Komponente :: Client :: Ping Stichworte

Perl-Modul Icmp Nichtsperrung Nicht blockierende Ping ICMP Ping.

Poe :: Komponente :: Client :: Ping Beschreibung

PoE :: Komponente :: Client :: Ping ist ein nicht blockierender ICMP-Ping-Client. PoE :: Bauteil :: Client :: Ping ist ein nicht blockierender ICMP-Ping-Client.Synopsis Verwenden Sie POE QW (Komponente :: Client :: Ping); Poe :: Bauteil :: Client :: Ping-> Spawn (Alias => "Pingthing", # Standardeinstellungen auf "Pinger" Timeout => 10, # standardmäßig auf 1 Sekunde Retry => 3, # standardmäßig auf 1 Versuch von Recherchen => 1, # Standards für deaktivierte Parallelität => 20, # standardmäßig auf undef Puffersesize => 65536, # standardmäßig auf undef immerdedecodeaddress => 1, # standardmäßig auf 0); suby_event_Handler {$ kernel-> post ("pingthing", # poste die Anforderung an das "Pingthing" -Komponenten. "Ping", # Bitten Sie es, eine Adresse "Ping" zu "Ping". "Pong", # Hat es eine Antwort als Antwort geben Ereignis "Pong". $ Adresse, # Dies ist die Adresse, die wir anpassen möchten. $ Timeout, # Optionales Timeout. Es überschreibt den Standardwert. $ Retry, # Optionale Wiederholungen. } # Dies ist der Sub, der aufgerufen wird, wenn die Sitzung ein "Pong" -er-Ereignis erhält. Es handhabt Antworten von der Ping-Komponente. Sub Got_Pong {My ($ Request, $ Response) = @_ ; meine ($ req_address, $ req_timeout, $ req_time) = @ $ Anfrage; mein ($ resp_address, $ rundrundtrip_time, $ resp_time, $ resp_ttl) = @ $ Antwort; # Die Antwortadresse ist definiert, wenn dies eine Antwort ist. if (definiert $ resp_address) {printf (ping auf% -15.15s bei d. Pong von% -15.15s in% 6.3f Sn ", $ Req_Address, $ REQ_TIME, $ REQ_ADDRESS, $ ROUNTRIP_TIME,); Rückkehr; } # Ansonsten ist der Timeout-Zeitraum beendet. Printf ("Ping to% -15.15s ist fertig.n", $ req_address,); } oder verwenden Sie PoE :: Komponente :: Client :: Ping ": const"; # Posten Sie ein Array-REF als Rückruf, um Daten zu erhalten, um zu Ihrem $ Kernel-> Post ("Pinger", "Ping", ); # Verwenden Sie die REQ_USER_ARGS-Konstante, um zu Ihrem Daten-Sub GOT_PONG {MY ($ -Anfrage, $ Antwort) = @_ zu gelangen; meine $ user_data = $ Anfrage -> ; ...; } Anforderungen: · Perl.

Poe :: Komponente :: Client :: Ping Zugehörige Software