Função gethostbyname do Perl

Descrição

Esta função contata 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 -

gethostbyname NAME

Valor de retorno

Esta função retorna undef em caso de erro e, caso contrário, o nome do host no contexto scalr e uma lista vazia em 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;

   ($name, $aliases, $addrtype, 
      $length, @addrs) = gethostbyname "amrood.com";
   print "Host name is $name\n";
   print "Aliases is $aliases\n";

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

Host name is amrood.com
Aliases is