Função Perl getnetbyaddr

Descrição

Esta função retorna as informações para a rede especificada por ADDR e digite ADDRTYPE em um contexto de lista: ($ name, $ aliases, $ addrtype, $ net)

Sintaxe

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

getnetbyaddr ADDR, ADDRTYPE

Valor de retorno

Esta função retorna undef em caso de erro, caso contrário, o endereço de rede no contexto escalar e a lista vazia em caso de erro, caso contrário, o registro da rede (nome, apelidos, tipo de endereço, endereço de rede) 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, $aliases, $addrtype, $net)  = getnetbyaddr($iaddr, AF_INET);

print "Name = $name\n";
print "Aliases = $aliases\n";
print "Addrtype = $addrtype\n";
print "Net = $net\n";

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

Name = default
Aliases = 
Addrtype = 2
Net = 0