Poe :: Componente :: Cliente :: Tracereroute PoE :: Componente :: Cliente :: TRACEROUTE ES UN CLIENTE DE TRACEROUTE NO BLOQUEO.
Descargar ahora

Poe :: Componente :: Cliente :: Tracereroute Clasificación y resumen

Poe :: Componente :: Cliente :: Tracereroute Etiquetas

Módulo perl sin bloqueo TRACEROUTE NO BLOQUEO cliente de traceroute traceroute

Poe :: Componente :: Cliente :: Tracereroute Descripción

Poe :: Componente :: Cliente :: TRACEROUTE es un cliente de traceroute no bloqueado. POE :: Componente :: Cliente :: TracerOUTE es un cliente de traceroute no bloqueado. HSYNOPSIS Use POE QW (Componente :: Cliente :: TracerOUTE); PoE :: Componente :: Cliente :: traceroute-> Spawn (alias => 'trazer', # por defecto en trazer Firsthop => 1, # predeterminado a 1 maxttl => 16, # predeterminado a 32 saltos de tiempo de espera => 0, # Los valores predeterminados para nunca QueryTimeOut => 3, # se predeterminados son de 3 segundos consultas => 3, # predeterminados en 3 consultas por Hop Baseport => 33434, # predeterminado a 33434 Packetlen => 128, # predeterminado a 68 SourceAaddress => '0.0.0.0 ', # Predeterminado a' 0.0.0.0 'perhoppostback => 0, # se predeterminado no tiene un dispositivo de perhoppostback =>' eth0 ', # predeterminado para UNDEF USEICMP => 0, # Predeterminado en 0 debug => 0, # Predeterminado en 0 Debugsocket => 0, # predeterminado en 0); Sub some_event_handler {$ kernel-> Post ("trazer", # POST SOLICITUD a "TRACER 'componente" TRACEROUTE ", # Pídelo a TRACEROUTE a una dirección" tracer_response ", # Publicar respuestas a' trace_response '$ destino, # esto es el host a traceroute a , # datos para enviar con evento de devolución de rebactor]); } # Este es el Sub que se llama con las respuestas del componente # TRACEROUTE. Subroy_Response {My ($ Solicitud, $ Respuesta) = @_ ; My ($ destino, $ Opciones, $ Callback) = @ $ Solicitud; MIS ($ HOPS, $ DATA, $ ERROR) = @ $ Respuesta; Si ($ HOPS) {Imprimir "Resultados de Tracereute para $ Destinationn"; foreach mis $ hop (@ $ DATA) {MY $ HOPNNUMT = $ HOP -> {HOP}; MY $ ROUTERIP = $ HOP -> {RouterIP}; mi @rtts = @ {$ hop -> {resultados}}; Imprimir "$ HopNumNumT $ enrutador"; foreach (@rtts) {if ($ _ eq "*") {imprimir "*"; } else {printf "% 0.3fms", $ _ * 1000; }} Imprimir "n"; }} Advierte "Se produjo un error en Rastreing a $ Destination: $ error" si ($ error); } O Sub Otory_Event_Handler {$ Kernel-> Post ("Tracer", # POST SOLICITUD a "TRACER 'componente" TRACEROUTE ", # Pídelo a TRACEROUTE a una dirección" Trace_Response ", # Publicar respuestas a' trace_response '$ destino, # Este es el anfitrión de TRACEROUTE a ); } Sub Trace_Row {My ($ Solicitud, $ Respuesta) = @_ ; My ($ destino, $ Opciones, $ Callback) = @ $ Solicitud; MI ($ CRANTHOP, $ DATA, $ ERROR) = @ $ Respuesta; # $ Los datos solo contienen respuestas para el TTL actual #, la estructura es la misma que para TRATE_RESPONSE superior a} POE :: Componente :: Cliente :: TRACEROUTE es un cliente de traceroute no bloqueado. Permite a varias otras sesiones traceroute a través de él en paralelo, y les permite continuar haciendo otras cosas mientras esperan las respuestas. Requisitos: · Perl

Poe :: Componente :: Cliente :: Tracereroute Software relacionado