| Poe :: Component :: Cliente :: Ping Poe :: Component :: Client :: Ping é um cliente de ping ICMP sem bloqueio. |
Baixe Agora |
Poe :: Component :: Cliente :: Ping Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Rocco Caputo
- Site do editor:
- http://search.cpan.org/~apocal/
Poe :: Component :: Cliente :: Ping Tag
Poe :: Component :: Cliente :: Ping Descrição
Poe :: Component :: Cliente :: Ping é um cliente de ping ICMP sem bloqueio. PoE :: Componente :: Cliente :: Ping é um cliente de ping ICMP sem bloqueio.synopsis Use PoE QW (Componente :: Cliente :: Ping); Poe :: Componente :: Cliente :: Ping-> Spawn (Alias => "Pingthing", # padrões para "Ping" Timeout => 10, # padrões para 1 segundo Retry => 3, # padrões para 1 Tentativa OneFey => 1, # padrões para desativado paralelismo => 20, # padrões para UNDEF bufferstize => 65536, # padrões para UNDEF sempreDecoDeaddress => 1, # padrões a 0); sub ALGE_EVENT_HANDLER {$ Kernel-> Post ("Pingthing", # Postar a solicitação para o componente "ping". "Ping", # Peça para "ping" um endereço ". Pong", # Tê-lo poste uma resposta como Evento "Pong". US $ endereço, # Este é o endereço que queremos ping. $ tempo limite, # tempo limite opcional. Ele substitui o padrão. $ Repetir, # tentativas opcionais. Substitui o padrão. } # Este é o sub que é chamado quando a sessão recebe um evento "pong" #. Ele lida com as respostas do componente Ping. sub got_pong {my ($ pedido, $ Response) = @_ ; meu ($ req_address, $ req_timeout, $ req_time) = @ $ pedido; MEU ($ RESP_ADDRESS, $ RoundTrip_time, $ Res Free_TTL) = @ $ resposta; # O endereço de resposta é definido se isso é uma resposta. if (definido $ ResP_Address) {printf (ping para% -15,15s em d. pong de% -15.15s em% 6.3f sn ", $ req_address, $ req_time, $ Resp_adtress, $ roundtrip_time,); Retorna; } # Caso contrário, o período de tempo limite terminou. Printf ("ping para% -15.15s é feito.n", $ req_address,); } ou use poe :: componente :: cliente :: ping ": const"; # Postar um array Ref como o retorno de chamada para obter dados de volta para você $ kernel-> post ("ping", "ping", ); # Use a constante Req_User_Args para chegar ao seu Data Sub Got_Pong {My ($ pedido, $ Response) = @_ ; meu pedido $ user_data = $ -> ; ...; } Requisitos: · Perl.
Poe :: Component :: Cliente :: Ping Software Relacionado