Función Perl getnetbyaddr

Descripción

Esta función devuelve la información para la red especificada por ADDR y escribe ADDRTYPE en un contexto de lista: ($ nombre, $ alias, $ addrtype, $ net)

Sintaxis

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

getnetbyaddr ADDR, ADDRTYPE

Valor devuelto

Esta función devuelve undef en caso de error, de lo contrario, dirección de red en contexto escalar y lista vacía en caso de error, de lo contrario, registro de red (nombre, alias, tipo de dirección, dirección de red) en 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, $aliases, $addrtype, $net)  = getnetbyaddr($iaddr, AF_INET);

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

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

Name = default
Aliases = 
Addrtype = 2
Net = 0