Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
875 connectés 

  FORUM HardWare.fr
  Programmation
  Perl

  requête dns dans un script

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

requête dns dans un script

n°515659
ktm
Posté le 16-09-2003 à 14:08:25  profilanswer
 

Bonjour
 
J'ai besoin d'effectuer des requetes DNS dans un script et j'ai testé avec type = A ou MX (exemple ci -dessous ) ou NS .
 
 
Mais est-il possible d'utiliser le type "ANY" ?
 
exemple de sub pour MX  
je suis novice en perl alors indulgence ....
 
#################################
sub mx_domain
{
 my ($nom) =@_;
  @mx = mx($res, $nom);
  if (@mx)  
  {
      print ("\nRecherche des MX pour le domaine ",$nom," \n" );
      foreach $rr (@mx) { print (" ",$rr->preference, " ", $rr->exchange,"  (",&domain_ip($rr->exchange)," )\n" ); }
  }
  else
  {
  if ($res->errorstring ne NOERROR)
   { print " requète MX erreur ", $res->errorstring;}
     }
}
 
Si quelqu'un peut m'aider ( une piste .... )  
 
merci

mood
Publicité
Posté le 16-09-2003 à 14:08:25  profilanswer
 

n°516530
pospos
Posté le 17-09-2003 à 14:29:04  profilanswer
 

Salut
je ne connais pas trop les modules qui permettent de communiquer avec les DNS. lequel utilise tu?

n°516723
ktm
Posté le 17-09-2003 à 19:09:03  profilanswer
 

J'utilise le module Net:: DNS .
 
Certes , on peut utiliser la commande nslookup de Bind en l'insérant dans le scrip perl mais j'essaie de ne pas me servir de commandes externes à Perl .
 
 


Message édité par ktm le 17-09-2003 à 19:12:29

---------------
Christian ROCHE
n°516882
pospos
Posté le 18-09-2003 à 09:00:16  profilanswer
 

Je ne sais pas si cela t'aidera, mais tu a la doc du module ici:
http://search.cpan.org/author/CREI [...] Net/DNS.pm
 
et egalement les modules associés:
http://search.cpan.org/author/CREIN/Net-DNS-0.40/
 
Je n'ai jamais utilisé ce module (gethostbyname me suffit, et meme souvent seulement inet_aton...) donc je ne peux pas t'aider la dessus, désolé...
 
Sinon si tu est novice en Perl je me permet de te donner un conseil: utilise le pragma strict ("use strict;" ), car dans ta sub tu ecris:

Code :
  1. my ($nom) =@_;
  2. @mx = mx($res, $nom);


 
Tu declare donc la variable $nom comme privée à la sub, et tu recupere pour sa valeur l'argument passé à la fonction, donc c'est parfait. Mais tu ne declare mas @mx comme variable privée à la sub, et de plus la variable $res semble avoir été passée à la sub en globale (pas bô!). Plus bas tu ne declare pas nonplus $rr.
 
donc ca devrait donner un truc comme ca (selon ce que tu veux faire) :

Code :
  1. my ($res, $nom) =@_;
  2. my @mx = mx($res, $nom);
  3. (...)
  4. foreach my $rr (@mx)


 
Il faut essayer de rester stricte en Perl car comme le langage est aseez permissif on arrive vite à faire de la purée, donc use strict!

n°517502
ktm
Posté le 18-09-2003 à 20:02:49  profilanswer
 

merci pour le conseil .


---------------
Christian ROCHE

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Perl

  requête dns dans un script

 

Sujets relatifs
cherche éditeur de script avec 'Traitement par lot'Script Bash : écrire dans /bin en non-root
Désactiver une erreur dans un script en VBS[PHP] Afficher le résultat d'une grosse requête ?
[PHP] Sauvegarder le résultat d'une requête dans un fichier excel ?Aide requete MySQL
recherche script de vérification de liens morts côté serveurScript php pour serveur ftp.
connaitre le poid généré par le script php! [flash] [html] [mime]Script PHP
Plus de sujets relatifs à : requête dns dans un script


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR