Fonction setprotoent de Perl

La description

Cette fonction doit être appelée avant le premier appel à getprotoent. L'argument STAYOPEN est facultatif et inutilisé sur la plupart des systèmes. Lorsque getprotoent () récupère les informations de la ligne suivante dans la base de données du protocole, setprotoent 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 -

setprotoent 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, $protocol_number) = getprotoent()) {
   print "Name = $name\n";
   print "Aliases = $aliases\n";
   print "Protocol Number = $protocol_number\n";
}

setprotoent(1); # Rewind the database.

while(($name, $aliases, $protocol_number) = getprotoent()) {
   print "Name = $name\n";
   print "Aliases = $aliases\n";
   print "Protocol Number = $protocol_number\n";
}
endprotoent();  # Closes the database

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

Name = ip
Aliases = IP
Protocol Number = 0
Name = hopopt
Aliases = HOPOPT
Protocol Number = 0
Name = icmp
Aliases = ICMP
Protocol Number = 1
Name = igmp
Aliases = IGMP
Protocol Number = 2
Name = ggp
Aliases = GGP
Protocol Number = 3
Name = ipencap
Aliases = IP-ENCAP
Protocol Number = 4
Name = st
Aliases = ST
Protocol Number = 5
.
.
.
Name = rsvp-e2e-ignore
Aliases = RSVP-E2E-IGNORE
Protocol Number = 134
Name = udplite
Aliases = UDPLite
Protocol Number = 136
Name = mpls-in-ip
Aliases = MPLS-in-IP
Protocol Number = 137
Name = manet
Aliases = manet
Protocol Number = 138
Name = hip
Aliases = HIP
Protocol Number = 139
Name = shim6
Aliases = Shim6
Protocol Number = 140