| NETADDR :: IP :: Buscar NETADDR :: IP :: Buscar es un módulo PERL para encontrar direcciones IP en texto sin formato. |
Descargar ahora |
NETADDR :: IP :: Buscar Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Tatsuhiko Miyagawa
- Sitio web del editor:
- http://search.cpan.org/~miyagawa/
NETADDR :: IP :: Buscar Etiquetas
NETADDR :: IP :: Buscar Descripción
NETADDR :: IP :: Buscar es un módulo PERL para encontrar direcciones IP en texto sin formato. NETADDR :: IP :: Buscar es un módulo PERL para encontrar direcciones IP en texto sin formato.Synopsis Use NETADDR :: IP :: Buscar; $ num_found = find_ipaddrs ($ texto, devolución de llamada); Este es un módulo para encontrar direcciones IP en texto sin formato.FunctionsNETTADDR :: IP :: Buscar exporta una función, Find_ipaddrs (). Funciona muy similar a URI :: Find_uris () o correo electrónico :: Find_Emails (). $ num_ipaddrs_found = find_ipaddrs ($ texto, devolución de llamada); El primer argumento es un texto para buscar y manipular. Segundo es una rutina de devolución de llamada que define qué hacer con cada dirección IP como se encuentran. Devuelve el número total de direcciones IP que se encuentran. La devolución de llamada recibe dos argumentos. La primera es una instancia de NETADDR :: IP que representa la dirección IP encontrada. El segundo es la dirección IP real como se encuentra en el texto. Independientemente de lo que los devoluciones de devolución de llamada reemplazarán el texto original.Examples # para cada dirección IP encontrada, ping su host para ver si está vivo. Utilice la red :: Ping; My $ PINGENER = NET :: Ping-> Nuevo; mi% ping; find_ipaddrs ($ texto, sub {my ($ ipaddr, $ original) = @_; My $ host = $ ipaddr-> to_string; Siguiente si existe $ pinged {$ host}; $ pinged {$ host} = $ pinger-> Ping ($ host);}); Mientras (mi ($ host, $ por arriba) == cada% pinged) {impresión "$ host es". $ up? 'arriba abajo' . "norte"; } # Resolución de la dirección IP a fqdn find_ipaddrs ($ texto, sub {my ($ ipaddr, $ orig) = @_; resolve_ip ($ ipaddr-> to_string);}); Sub resolve_ip {Use Net :: DNS; # ver perldoc net :: DNS para más detalles} Requisitos: · Perl
NETADDR :: IP :: Buscar Software relacionado