| Poe :: Componente :: Cliente :: Ping POE :: Componente :: client :: Ping è un client Ping ICMP non bloccante. |
Scarica ora |
Poe :: Componente :: Cliente :: Ping Classifica e riepilogo
- Licenza:
- Perl Artistic License
- Nome editore:
- Rocco Caputo
- Sito web dell'editore:
- http://search.cpan.org/~apocal/
Poe :: Componente :: Cliente :: Ping Tag
Poe :: Componente :: Cliente :: Ping Descrizione
Poe :: Componente :: client :: Ping è un client Ping ICMP non bloccante. POE :: Componente :: Cliente :: Ping è un client Ping ICMP non bloccante.Synopsis Utilizzare POE QW (componente :: client :: ping); POE :: Componente :: client :: Ping-> spawn (alias => "pingthing", # predefiniti su timeout "pinger" => 10, # predefiniti su 1 secondo riprova => 3, # predefiniti su 1 tentativo onereply => 1, # predefiniti a disabilitato parallelism => 20, # predefiniti su undef buffrsize => 65536, # predefiniti per undef sempredecodeaddress => 1, # predefiniti su 0); sub alcuni_event_handler {$ kernel-> post ("Pingthing", # pubblica la richiesta al componente "Pingthing". "Ping", # chiedilo a "ping" un indirizzo. "Pong", # prevede una risposta come a evento "Pong". $ Indirizzo, # Questo è l'indirizzo che vogliamo ping. $ Timeout, # Timeout opzionale. Sostituisce il valore predefinito. $ Riproduzione, # tentativi opzionali. Sostituisce il valore predefinito.) } # Questa è la sottoschetta che viene chiamata quando la sessione riceve un "evento Pong". Gestisce le risposte dal componente Ping. sub got_pong {my ($ richiesta, $ risposta) = @_ ; my ($ req_address, $ req_timeout, $ req_time) = @ $ richiesta; my ($ resp_address, $ roundtrip_time, $ resp_time, $ resp_ttl) = @ $ risposta; # L'indirizzo di risposta è definito se questa è una risposta. se (definito $ resp_address) {printf ("ping a% -15.15s a d. Pong da% -15.15s in% 6.3f sn", $ req_address, $ req_time, $ resp_address, $ roundtrip_time,); Restituzione; } # Altrimenti il periodo di timeout è terminato. PrintF ("Ping to% -15.15s è fatto.n", $ req_address,); } o utilizzare Poe :: Component :: client :: Ping ": Cost"; # Pubblica un array Ref come richiamata per ottenere dati a $ $ kernel-> post ("pinger", "ping", ); # Utilizzare la costante req_user_args per arrivare ai tuoi dati sub got_pong {my ($ richiesta, $ risposta) = @_ ; My $ user_data = $ Richiesta -> ; ...; } Requisiti: · Perl.
Poe :: Componente :: Cliente :: Ping Software correlato