L'obtention de tous les noms d'hôte de l'adresse IP en Perl

J'essaie de trouver un moyen d'obtenir tous les noms d'hôtes qui permettent de résoudre une adresse IP.

La fonction gethostbyaddr s'affiche pour récupérer uniquement le premier enregistrement de DNS (peu importe si c'est dans scalaire ou de liste, contexte).

Exemple:

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,?)
}

À partir du 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.

J'ai entendu dire que le Net::DNS est un peu plus robuste, mais je n'ai pas eu de chance pour vous que pour tirer toutes les entrées.

OriginalL'auteur arcdegree | 2011-04-15

perl

J'ai utilisé une combinaison de réponses d'ici et d'ailleurs sur un débordement de pile à trouver la réponse que je cherchais.

# 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));
    }
}

OriginalL'auteur arcdegree

2

La gethostby... interface est assez vieux et maladroit, étant définie de retour dans les temps primitifs, avant de Perl ai des références et prétentions à l'OO. Et il ne fonctionne pas de la façon dont vous êtes en essayant de l'utiliser. Lorsque utilisé dans un contexte de liste, il renvoie le nom primaire comme le premier élément et un espace séparé(!) liste des alias comme la deuxième:
```
my ($hostname, $aliases) = gethostbyaddr($addr, AF_INET);
my @hostname = ($hostname, split ' ', $aliases);
say join ' ', @hostname;
```
Maintenant, c'est la théorie; je n'ai pas de localiser les adresses IP avec plusieurs enregistrements PTR désinvolte, donc je ne peux pas tester si gethostbyaddr sera fait retour -- cela dépend probablement sur votre sous-jacente C runtime ainsi, mais ça ne fonctionne si vous utilisez gethostbyname avec un CNAMEd nom, par exemple.

Merci pour l'aide, mais je ne pouvais pas obtenir ce à retourner plus d'un nom de domaine. Je suis suppose que c'est parce que la fonction gethostbyaddr est juste désuet et n'est pas destiné pour l'utilisation que je cherchais.
J'ai rapidement cherché sur google une version du code source de la réponse DNS l'analyse que les anciennes bibliothèques C -- et il s'avère que lors de la recherche d'une adresse IP, il s'arrête simplement à la première PTR enregistrement de ressource. Sans doute, il est juste à fonctionner comme prévu, puisque le fait d'avoir plusieurs PTR enregistrements n'est pas recommandé. De retour dans la journée, il y a un concept de la 'canonique' nom de l'hôte qui l' PTR dossier. Mais une autre raison de ne pas le faire est exactement ce que la bibliothèque C en choisit une au hasard, donnant des résultats imprévisibles. C'est la façon dont le monde est à vous de décider si vous l'aimez.
Grand commentaire, merci pour la clarification.

OriginalL'auteur LHMathies

Voici un petit programme que j'utilise pour rechercher tous les enregistrements PTR pour un masque de réseau (par exemple 192.0.2.0/28 ) lorsque vous faites l'abus de suivi des tâches. Il envoie jusqu'à 15 requêtes par seconde et quand ils sont tous envoyés puis commence à lire les réponses (si il avais besoin d'un peu de travail pour fonctionner correctement pour le plus grand net blocs).

#!/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;
}
}

Je vous remercie pour votre aide, j'ai utilisé les pièces de votre script dans la réponse à la question.

OriginalL'auteur Ask Bjørn Hansen

1

Je ne pense pas que ce soit un bien formée énoncé du problème. Dans le cas général, il y a un nombre presque infini de noms DNS qui pourraient résoudre à n'importe quelle adresse IP, même inconnus à la partie qui contient l'adresse. Inverse les recherches sont fondamentalement peu fiables, et ne sont pas capables de répondre à la question de l'affiche tiens, puisque tous les noms pour les IP n'ont pas besoin d'être dans le visible inverse de la carte.

La première réponse, qui énumère l'inverse de la carte, est le mieux qu'on puisse faire, mais il va manquer aucun des noms qui n'ont pas été inscrites dans la carte.

OriginalL'auteur dbrower

C'est ce que j'ai utilisé:

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;
}
}

Tant que $rr->nom trouve des noms, il ne cesse d'ajouter de.

Je ne sais pas si je l'ai suivi. D'où vient "searchlist=>$config->{searchlist}"?

OriginalL'auteur perlcat

Vous devez vous connecter pour publier un commentaire.