Fonction perl gethostbyaddr

La description

Cette fonction contacte le service de résolution de noms du système, renvoyant une liste d'informations pour l'hôte ADDR de type ADDRTYPE, comme suit - ($ name, $ aliases, $ addrtype, $ length, @addrs)

Le tableau @addrs contient une liste d'adresses binaires compactées. Dans un contexte scalaire, renvoie l'adresse de l'hôte.

Syntaxe

Voici la syntaxe simple de cette fonction -

gethostbyaddr ADDR, ADDRTYPE

Valeur de retour

Cette fonction renvoie undef en cas d'erreur et sinon le nom d'hôte dans le contexte scalr et une liste vide en cas d'erreur sinon l'enregistrement d'hôte dans le contexte de liste.

Exemple

Voici l'exemple de code montrant son utilisation de base -

#!/usr/bin/perl
use Socket;

   $iaddr = inet_aton("127.1"); # or whatever address
   $name  = gethostbyaddr($iaddr, AF_INET);
   print "Host name is $name\n";

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant -

Host name is ip-50-62-147-141.ip.secureserver.net