Función setnetent Perl

Descripción

Esta función debe llamarse antes de la primera llamada a getnetent. El argumento STAYOPEN es opcional y no se utiliza en la mayoría de los sistemas. Cuando getnetent () revisa la información de la siguiente línea en la base de datos de la red, luego setnetent establece (o restablece) la enumeración al comienzo del conjunto de entradas de host.

Sintaxis

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

setnetent STAYOPEN

Valor devuelto

Esta función no devuelve ningún valor.

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";
}

setnetent(1); # Rewind the database;

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

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

endnetent();  # Closes the database;

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