| PoE :: Componente :: Cliente :: Ping PoE :: Componente :: Cliente :: Ping es un cliente de ping ICMP que no bloquea. |
Descargar ahora |
PoE :: Componente :: Cliente :: Ping Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Rocco Caputo
- Sitio web del editor:
- http://search.cpan.org/~apocal/
PoE :: Componente :: Cliente :: Ping Etiquetas
PoE :: Componente :: Cliente :: Ping Descripción
POE :: Componente :: Cliente :: Ping es un cliente de ping ICMP que no bloquea. PoE :: Componente :: Cliente :: Ping es un cliente de ping de ICMP no bloqueado. HSYNOPSIS Use POE QW (Componente :: Cliente :: Ping); PoE :: Componente :: Cliente :: Ping-> Spawn (Alias => "Pongthing", # predeterminado a "Pinger" TimeOut => 10, # Predeterminado a 1 segundo reintento => 3, # predeterminado en 1 intento de intento eraneply => 1, # Predeterminado para el paralelismo deshabilitado => 20, # predeterminado para desheinar Buffersize => 65536, # predeterminado para desheinar siempre debilDess => 1, # por defecto a 0); Sub some_event_handler {$ kernel-> Post ("Pongthing", # Publica la solicitud del componente "Pingthing". "Ping", # Pídale que "haga ping" una dirección. "Pong", # Publique una respuesta como una respuesta como Evento "Pong". $ DIRECCIÓN, # Esta es la dirección que queremos hacer ping. $ Tiempo de espera, # Tiempo de espera opcional. Anula el valor predeterminado. $ Reintentos, # reintentos opcionales. Se anula el valor predeterminado); } # Este es el Sub que se llama cuando la sesión recibe un evento de "Pong" #. Maneja las respuestas del componente Ping. Sub Got_Pong {My ($ Solicitud, $ Respuesta) = @_ ; mi ($ req_address, $ req_timeut, $ req_time) = @ $ Solicitud; mi ($ resp_Address, $ idaintectárea_time, $ resp_time, $ resp_ttl) = @ $ Respuesta; # La dirección de respuesta se define si esta es una respuesta. Si (definido $ resp_Address) {printf ("ping a% -15.15s en d. Pong de% -15.15s en% 6.3f SN", $ req_address, $ req_time, $ resp_Address, $ idaintectárea),); regreso; } # De lo contrario, el período de tiempo de espera ha terminado. printf ("ping to% -15.15s está hecho.n", $ req_address,); } o use POE :: Componente :: Cliente :: Ping ": Const"; # Publica una matriz Ref como la devolución de llamada para obtener datos de nuevo a usted $ Kernel-> Post ("Pinger", "Ping", ); # Use la constante REQ_USER_ARGS para llegar a su Sub Data Got_Pong {My ($ Solicitud, $ Respuesta) = @_ ; My $ user_data = $ Solicitud -> ; ...; } Requisitos: · Perl
PoE :: Componente :: Cliente :: Ping Software relacionado