Poe :: Componente :: Cliente :: Traceroute poe :: componente :: cliente :: traceroute é um cliente traceroute não bloqueador.
Baixe Agora

Poe :: Componente :: Cliente :: Traceroute Classificação e resumo

Poe :: Componente :: Cliente :: Traceroute Tag

Módulo Perl. sem bloquear Traceroute não bloqueador cliente traceroute. traceroute.

Poe :: Componente :: Cliente :: Traceroute Descrição

Poe :: Component :: Cliente :: Traceroute é um cliente Traceroute não bloqueador. PoE :: Componente :: Cliente :: Traceroute é um cliente Traceroute não bloqueador.Synopsis Use PoE QW (Componente :: Cliente :: Traceroute); PoE :: Componente :: Cliente :: Traceroute-> Spawn (Alias => 'Tracer', # padrões para Tracer Firsthop => 1, # padrões para 1 maxttl => 16, # padrões para 32 Hops timeout => 0, # Padrões para nunca querytimeout => 3, # padrões para 3 segundos consultas => 3, # padrões para 3 consultas por bastaport => 33434, # padrões para 33434 packetlen => 128, # padrões para 68 SourceAddress => '0.0.0.0 ', Padrões para' 0.0.0.0 'pertoppostback => 0, # padrões para nenhum dispositivo pertoppostback =>' eth0 ', # padrões para UNDEFO usicmp => 0, # padrões para 0 debug => 0, # padrões para 0 debugsocket => 0, # padrões para 0); Sub Abs_Event_Handler {$ Kernel-> Post ("Tracer", # Postar pedido para 'Tracer' componente "traceroute", # Peça a Traceroute para um endereço "trace_response", # Post respostas para 'TRACE_RESPONSE' $ DESTINO, # Isso é O anfitrião para Traceroute para , # dados para enviar de volta com o evento de postback]); } # Este é o sub que é chamado com as respostas do componente # traceroute. sub race_response {my ($ pedido, $ response) = @_ ; Meu ($ Destem, $ Opções, $ Callback) = @ $ pedido; Meu ($ Hops, $ Data, $ Error) = @ $ resposta; if ($ laps) {Imprimir "Resultados de Traceroute para $ Destinationn"; foreach meu $ hop (@ $ data) {my $ hopnumber = $ hip -> {hop}; Meu $ Routerip = $ Hop -> {Routerip}; my @rtts = @ {$ hip -> {resultados}}; Imprimir "$ Hopnumbert $ Routert"; foreach (@rtts) {if ($ _ eq "* *") {Imprimir "*"; } else {Printf "% 0.3fms", $ _ * 1000; }} Imprimir "n"; }} avisar "Ocorreu um erro de rastreamento para $ destino: $ errorn" se ($ erro); } ou subover_event_handler {$ Kernel-> Post ("Tracer", # Postar pedido para 'Tracer' componente "traceroute", # Peça a Traceroute a um endereço "trace_response", # Post respostas para 'TRACE_RESPONSE' $ DESTINO, # Este é o host para traceroute para ); } Sub Trace_Row {My ($ Solicitar, $ Response) = @_ ; Meu ($ Destem, $ Opções, $ Callback) = @ $ pedido; meu ($ Currenthop, $ Data, $ Error) = @ $ resposta; # $ dados só contém respostas para o atual TTL # A estrutura é a mesma que para trace_response acima} poe :: componente :: cliente :: traceroute é um cliente traceroute não bloqueador. Permite várias outras sessões traceroute através de paralelo, e os permite continuar fazendo outras coisas enquanto esperam por respostas. Requisitos: · Perl.

Poe :: Componente :: Cliente :: Traceroute Software Relacionado