Fonction sethostent de Perl

La description

Cette fonction doit être appelée avant le premier appel à gethostent. L'argument STAYOPEN est facultatif et inutilisé sur la plupart des systèmes.

Lorsque gethostent () récupère les informations de la ligne suivante dans la base de données hôte, sethostent définit (ou réinitialise) l'énumération au début de l'ensemble des entrées hôte.

Syntaxe

Voici la syntaxe simple de cette fonction -

sethostent 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, $addrtype, $length, @addrs) = gethostent() ) {
   print "Name  = $name\n";
   print "Aliases  = $aliases\n";
   print "Addr Type  = $addrtype\n";
   print "Length  = $length\n";
   print "Addrs  = @addrs\n";
}

sethostent(1);

while( ($name, $aliases, $addrtype, $length, @addrs) = gethostent() ) {
   print "Name  = $name\n";
   print "Aliases  = $aliases\n";
   print "Addr Type  = $addrtype\n";
   print "Length  = $length\n";
   print "Addrs  = @addrs\n";
}

endhostent();  # Closes the database;

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

Name  = ip-50-62-147-141.ip.secureserver.net
Aliases  = ip-50-62-147-141 localhost.secureserver.net localhost.localdomain localhost
Addr Type  = 2
Length  = 4
Addrs  = 
Name  = ip-50-62-147-141.ip.secureserver.net
Aliases  = ip-50-62-147-141 localhost.secureserver.net localhost.localdomain localhost
Addr Type  = 2
Length  = 4
Addrs  =