Funzione gethostbyaddr di Perl

Descrizione

Questa funzione contatta il servizio di risoluzione dei nomi del sistema, restituendo un elenco di informazioni per l'ADDR host di tipo ADDRTYPE, come segue: ($ name, $ aliases, $ addrtype, $ length, @addrs)

L'array @addrs contiene un elenco di indirizzi binari compressi. In un contesto scalare, restituisce l'indirizzo host.

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

gethostbyaddr ADDR, ADDRTYPE

Valore di ritorno

Questa funzione restituisce undef in caso di errore e altrimenti il ​​nome host nel contesto scalr e una lista vuota in caso di errore altrimenti il ​​record host nel contesto della lista.

Esempio

Di seguito è riportato il codice di esempio che mostra il suo utilizzo di 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";

Quando viene eseguito il codice sopra, produce il seguente risultato:

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