Netaddr :: IP :: Find

netaddr :: IP :: FIND ist ein Perl-Modul, um IP-Adressen im Klartext zu finden.
Jetzt downloaden

Netaddr :: IP :: Find Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Tatsuhiko Miyagawa
  • Website des Verlags:
  • http://search.cpan.org/~miyagawa/

Netaddr :: IP :: Find Stichworte


Netaddr :: IP :: Find Beschreibung

NetAddr :: IP :: FIND ist ein Perl-Modul, um IP-Adressen in Klartext zu finden. NetAddr :: IP :: FIND ist ein Perl-Modul, um IP-Adressen in Plain Text zu finden.Synopsis verwenden NetAddr :: IP :: FIND; $ num_found = find_ipaddrs ($ Text, Callback); Dies ist ein Modul zum Finden von IP-Adressen in Plain Text.FunctionsNaddr :: IP :: Find Exports Eine Funktion, find_ipaddrs (). Es funktioniert sehr ähnlich wie Uri :: Finding find_uris () oder E-Mail :: Finding find_emails (). $ num_ipaddrs_found = find_ipaddrs ($ text, callback); Das erste Argument ist ein Text, der durchsucht und manipuliert wird. Zweitens ist eine Callback-Routine, die definiert, was mit jeder IP-Adresse zu tun ist, wie sie gefunden werden. Es gibt die Gesamtzahl der gefundenen IP-Adressen zurück. Der Rückruf ergibt zwei Argumente. Die erste ist eine NetAddr :: IP-Instanz, die die gefundene IP-Adresse darstellt. Die zweite ist die tatsächliche IP-Adresse, wie sie im Text gefunden wurde. Was auch immer der Callback-Rendite ersetzt, ersetzen den ursprünglichen Text.examples # für jede gefundene IP-Adresse, die seinen Host angibt, um zu sehen, ob es lebendig ist. Verwenden Sie net :: ping; mein $ pinger = net :: ping-> neu; meine% pinged; find_ipaddrs ($ text, sub {my ($ ipaddr, $ orig) = @_; mein $ host = $ ipaddr-> to_string; Nächstes, wenn es existiert $ Pinged {$ host}; $ Pinged {$ host} = $ Pinger-> Ping ($ host);}); Während (mein ($ host, $ up) == jeweils% pinged) {drucken "$ host ist". $ up? 'oben unten' . "n"; } # Auflösung der IP-Adresse an FQDN find_ipaddrs ($ text, sub {my ($ ipaddr, $ orig) = @_; Resolve_ip ($ ipaddr-> to_string);}); Sub Resolve_ip {Verwenden Sie net :: dns; # Siehe Perdoc Net :: DNS für Details} Anforderungen: · Perl.


Netaddr :: IP :: Find Zugehörige Software