Netaddr :: ip :: encontrar NETADDR :: IP :: Localizar é um módulo Perl para encontrar endereços IP em texto simples.
Baixe Agora

Netaddr :: ip :: encontrar Classificação e resumo

Netaddr :: ip :: encontrar Tag

Módulo Perl. IP. achar encontrar endereços IP Encontre IPS.

Netaddr :: ip :: encontrar Descrição

NetAddR :: IP :: Localizar é um módulo Perl para encontrar endereços IP em texto simples. NetAddR :: IP :: Localizar é um módulo Perl para encontrar endereços IP em texto simples.Synopsis Use NetAddR :: IP :: Encontrar; $ num_Found = Find_iPaddRs ($ text, retorno); este é um módulo para encontrar endereços IP em texto simples.Functionsnetaddr :: ip :: encontrar exportações uma função, find_ipaddrs (). Funciona muito parecido com Uri :: Locald's Find_uris () ou Email :: Locald's Find_Emails (). $ num_ipaddrs_found = find_ipaddrs ($ texto, retorno de chamada); o primeiro argumento é um texto para pesquisar e manipular. O segundo é uma rotina de retorno de chamada que define o que fazer com cada endereço IP como eles são encontrados. Ele retorna o número total de endereços IP encontrados. O retorno de chamada recebe dois argumentos. A primeira é uma instância netaddr :: IP representando o endereço IP encontrado. O segundo é o endereço IP real como encontrado no texto. Seja qual for o retorno de chamada, substituirá o texto original.Examples # para cada endereço IP encontrado, ping seu host para ver se está vivo. Use net :: ping; Meu $ Pinger = Net :: Ping-> Novo; meu% pingado; Find_ipaddrs ($ text, sub {my ($ iPaddr, $ orig) = @_; meu $ host = $ iPaddr-> to_string; próximo se existir $ pinged {$ host}; $ pinged {$ host} = $ pinger-> ping ($ host);}); Enquanto (meu ($ host, $ up) == cada% pinged) {imprimir "$ host é". $ up? 'cima baixo' . "N"; } # Resolver endereço IP para fqdn find_ipaddrs ($ text, sub {my ($ ipaddr, $ orig) = @_; resolve_ip ($ iPaddr-> to_string);}); sub resolve_ip {use net :: dns; # Veja PerlDoc Net :: DNS para detalhes} Requisitos: · Perl.

Netaddr :: ip :: encontrar Software Relacionado