Função Perl gethostbyaddr

Descrição

Esta função entra em contato com o serviço de resolução de nomes do sistema, retornando uma lista de informações para o host ADDR do tipo ADDRTYPE, como segue - ($ name, $ aliases, $ addrtype, $ length, @addrs)

O array @addrs contém uma lista de endereços binários compactados. Em um contexto escalar, retorna o endereço do host.

Sintaxe

A seguir está a sintaxe simples para esta função -

gethostbyaddr ADDR, ADDRTYPE

Valor de retorno

Esta função retorna undef em caso de erro e de outra forma o nome do host no contexto scalr e lista vazia no caso de erro, caso contrário, o registro do host no contexto da lista.

Exemplo

A seguir está o código de exemplo que mostra seu 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";

Quando o código acima é executado, ele produz o seguinte resultado -

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

↰ Previous page