Función de obtención de Perl

Descripción

Esta función obtiene la siguiente entrada del archivo / etc / networks, devolviendo - ($ nombre, $ alias, $ addrtype, $ net)

Si el archivo / etc / networks está vacío, no devolverá nada y la llamada fallará.

Sintaxis

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

getnetent

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;

while ( ($name, $aliases, $addrtype, $net)  = getnetent() ) {

   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
Name = loopback
Aliases = 
Addrtype = 2
Net = 2130706432
Name = link-local
Aliases = 
Addrtype = 2
Net = 2851995648