Fonction setnetent Perl

La description

Cette fonction doit être appelée avant le premier appel à getnetent. L'argument STAYOPEN est facultatif et inutilisé sur la plupart des systèmes. Lorsque getnetent () récupère les informations de la ligne suivante dans la base de données réseau, setnetent définit (ou réinitialise) l'énumération au début de l'ensemble d'entrées d'hôte.

Syntaxe

Voici la syntaxe simple de cette fonction -

setnetent STAYOPEN

Valeur de retour

Cette fonction ne renvoie aucune valeur.

Exemple

Voici l'exemple de code montrant son utilisation de base -

#!/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;

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant -

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