Immer alle Hostnamen von der IP-Adresse in Perl

Ich versuche einen Weg zu finden, um alle Hostnamen für die Auflösung einer IP-Adresse.

Die gethostbyaddr-Funktion erscheint nur abrufen, den ersten Datensatz aus der DNS (egal, wenn es ein Skalar oder Liste Kontext).

Beispiel:

my $hostname = gethostbyaddr(inet_aton($ip_to_check), AF_INET);
$print($hostname); //output: joe.example.com

my @hostnames = gethostbyaddr(inet_aton($ip_to_check), AF_INET);
foreach my $hostname (@hostnames){
 print "(", join(',',@hostnames), ")"; //output: (joe.example.com,,2,4,?)
}

Vom terminal:

$ host 192.168.1.5
5.1.168.192.in-addr.arpa domain name pointer joe.example.com.
5.1.168.192.in-addr.arpa domain name pointer john.example.com.

Ich habe gehört, dass die Net::DNS ist ein wenig robuster, aber ich habe keine Glück bekommen, ziehen alle Einträge als gut.

InformationsquelleAutor arcdegree | 2011-04-15

perl

Ich verwendet eine Kombination von Antworten gegeben, die hier und anderswo auf stack overflow, die Antwort zu finden, die ich suchte.

# create new Resolver Object
my $res = Net::DNS::Resolver->new;

# change IP from 192.168.1.15 to 15.1.168.192.in-addr.arpa for searching
my $target_IP = join('.', reverse split(/\./, $ip_to_check)).".in-addr.arpa";

# query DNS
my $query = $res->query("$target_IP", "PTR");

# if a result is found
if ($query){
    print("Resolves to:\n");

    # for every result, print the IP address
    foreach my $rr ($query->answer){
        # show all unless the type is PTR (pointer to a canonical name)
        next unless $rr->type eq "PTR";

        # remove the period at the end
        printf(substr($rr->rdatastr, 0, -1));
    }
}

InformationsquelleAutor arcdegree

2

Den gethostby... - Schnittstelle ist Recht alt und klobig, definiert wird zurück in Urzeiten, bevor Perl bekam Referenzen und Ansprüche an OO. Und es funktioniert nicht, die Art und Weise, die Sie versuchen, es zu benutzen. Wenn verwendet, in der Liste den Kontext, es gibt den primären Namen als erstes element, und eine durch Leerzeichen-getrennte(!) Liste der Aliasnamen als die zweite:
```
my ($hostname, $aliases) = gethostbyaddr($addr, AF_INET);
my @hostname = ($hostname, split ' ', $aliases);
say join ' ', @hostname;
```
Nun, das ist die Theorie; ich habe nicht finden keine IP-Adressen, die mit mehreren PTR-records offhand, also kann ich nicht testen, ob gethostbyaddr tatsächlich zurückgeben-wahrscheinlich hängt von Ihrem zugrunde liegenden C-runtime-aber es funktioniert, wenn Sie gethostbyname mit einem CNAMEd name, zum Beispiel.

Danke für die Hilfe, aber ich konnte nicht dies wieder mehr als einen domain-Namen. Ich denke, das ist, weil die gethostbyaddr-Funktion ist einfach veraltet und sollen nicht für die Verwendung, die ich suchte.
Ich habe schnell gegoogelt bis eine version des source Codes für die DNS-Antwort Parsen, der alten C-Bibliotheken benutzen -- und es stellt sich heraus, dass, wenn man von einer IP-Adresse es hört einfach bei der ersten PTR resource-record. Wohl, es funktioniert einfach wie geplant, da mehrere PTR Datensätze wird nicht empfohlen. Zurück in den Tag gab es ein Konzept des 'kanonischen' Namen des Hosts, der die PTR Datensatz zeigen. Aber ein weiterer Grund es nicht zu tun ist genau das, dass die C-Bibliothek wählt eine zufällig, was zu unvorhersehbaren Ergebnissen. Das ist die Weise, wie die Welt ist, die Sie erhalten, zu entscheiden, ob es dir gefällt.
Großartiger Kommentar, vielen Dank für die Klarstellung.

InformationsquelleAutor LHMathies

Hier ist ein kleines Programm, das ich verwenden, um die lookup-Sie alle PTR-Datensätze für eine Netzmaske (beispielsweise 192.0.2.0/28 ) bei Missbrauch tracking-Aufgaben. Es sendet bis zu 15 Anfragen pro Sekunde und wenn Sie alle gesendet, liest dann die Antworten (so Sie brauchen ein wenig Arbeit, um ordnungsgemäß zu funktionieren für größere Netto-Blöcke).

#!/usr/bin/env perl
use strict;
use warnings;

use Net::Netmask;
use Net::DNS;

@ARGV or die "$0 ip/cidr\n";

my $block = Net::Netmask->new(shift);

my $res = Net::DNS::Resolver->new;

my %sockets;

my $i = 0;
for my $i (1 .. $block->size - 1) {
    my $ip = $block->nth($i);

    my $reverse_ip = join ".", reverse split m/\./, $ip;
    $reverse_ip .= ".in-addr.arpa";

    #print "$ip\n";

    my $bgsock = $res->bgsend($reverse_ip, 'PTR');
    $sockets{$ip} = $bgsock;

    sleep 1 unless $i % 15;
}

$i = 0;
for my $i (1 .. $block->size - 1) {

    my $ip = $block->nth($i);

    my $socket = $sockets{$ip};
    my $wait   = 0;
    until ($res->bgisready($socket)) {
        print "waiting for $ip\n" if $wait > 0;
        sleep 1 + $wait;
        $wait++;
    }
    my $packet = $res->bgread($socket);
    my @rr     = $packet->answer;

    printf "%-15s %s\n", $ip, $res->errorstring
      unless @rr;

    for my $rr (@rr) {
        printf "%-15s %s\n", $ip, $rr->string;
    }
}

Danke für Eure Hilfe, ich gebrauchte Teile, die von Ihrem Skript in die Antwort auf die Frage.

InformationsquelleAutor Ask Bjørn Hansen

1

Ich glaube nicht, dass dies ist ein gut geformt problem-Anweisung. Im Allgemeinen Fall gibt es eine fast unendliche Anzahl von DNS-Namen auflösen konnten, um beliebigen IP-Adresse, auch unbekannte auf der party, hält der Adresse. Reverse-lookups sind grundsätzlich unzuverlässig, und sind nicht in der Lage, die Beantwortung der Frage, der poster möchte, da alle Namen für eine IP muss nicht in den sichtbaren Rückseite der Karte.

Die erste Antwort, die zählt der Rückseite der Karte, ist das beste was man tun kann, aber es werden irgendwelche Namen, die nicht in der Karte.

InformationsquelleAutor dbrower

Dies ist, was ich verwendet habe:

sub getauthoritivename
    {
    my ($printerdns)=@_;
    my $res = Net::DNS::Resolver->new(searchlist=>$config->{searchlist});

    my $query = $res->search($printerdns);
    if ($query) 
        {
        foreach my $rr ($query->answer) 
            {
            next unless $rr->type eq "A";
            print $rr->name;
            }
        } 
    else
        {
        warn "query failed: ", $res->errorstring, "\n";
        return 0;
        }
    }

Solange $rr->name findet Namen, es hält Sie Sie hinzufügen.

Ich bin mir nicht sicher, ob ich Folgen. Wo kommt " - Suchliste=>$config->{Suchliste}" kommen?

InformationsquelleAutor perlcat

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.