Función Perl gethostbyaddr

Descripción

Esta función se pone en contacto con el servicio de resolución de nombres del sistema, devolviendo una lista de información para el host ADDR de tipo ADDRTYPE, de la siguiente manera: ($ nombre, $ alias, $ addrtype, $ length, @addrs)

La matriz @addrs contiene una lista de direcciones binarias empaquetadas. En un contexto escalar, devuelve la dirección del host.

Sintaxis

A continuación se muestra la sintaxis simple para esta función:

gethostbyaddr ADDR, ADDRTYPE

Valor devuelto

Esta función devuelve undef en caso de error y, de lo contrario, el nombre de host en el contexto de scalr y una lista vacía en caso de error, de lo contrario, el registro de host en el contexto de lista.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico:

#!/usr/bin/perl
use Socket;

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

Cuando se ejecuta el código anterior, produce el siguiente resultado:

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