Discussion :

[Gad29]

Bonjour à tous.
J'ais un script qui scan les machines d'un réseau.
Une fois ce scan réaliser le résultat est stocké dans un fichier.
Un programme analyse ce fichier et pour chaque adresse éffectu une intérogation du serveur dns pour voir si la machine trouvé est contenue dans le dns ou non.
Voila la demande auprés du dns :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$exec = "nslookup $adresse";
	system($exec) and die "Nslookup de $adresse échoué : $!\n";

Je voudrais savoir comment récupérer la réponse du serveur pour ensuite envoyer un message d'alerte si une machine qui n'est pas dans le dns répond au scan ? ? ?
Que me conseillez-vous pour réaliser cela ?

Merci d'avance

[Jedai]

Pour récupérer la sortie d'une commande externe on utilise les backquotes `` plutôt que system() comme c'est expliqué dans la section de notre FAQ consacrée aux processus. Remarque que tu n'as pas vraiment besoin d'utiliser nslookup, le morceau de code suivant interroge le DNS en Perl pur et sans module en dehors du CORE :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
use Socket;
$iaddr = inet_aton("64.233.167.99"); # or whatever address
$name  = gethostbyaddr($iaddr, AF_INET);

--
Jedaï

[Gad29]

Merci beaucoup de ta réponse jedaï ca me simplifie la vie tu n'imagine pas