Fonction setservent Perl

La description

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

Syntaxe

Voici la syntaxe simple de cette fonction -

setservent STAYOPEN

Valeur de retour

Cette fonction ne renvoie aucune valeur.

Exemple

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

#!/usr/bin/perl


while(($name, $aliases, $port_number, 
   $protocol_name) = getservent()) {

   print "Name = $name\n";
   print "Aliases = $aliases\n";
   print "Port Number = $port_number\n";
   print "Protocol Name = $protocol_name\n";

}

setservent();   # Rewind the database /etc/services;

while(($name, $aliases, $port_number,
   $protocol_name) = getservent()) {

   print "Name = $name\n";
   print "Aliases = $aliases\n";
   print "Port Number = $port_number\n";
   print "Protocol Name = $protocol_name\n";

}

endservent();  # Closes the database;