Fonction getprotoent de Perl

La description

Cette fonction renvoie l'entrée suivante de la liste des protocoles valides: ($ name, $ aliases, $ protocol_number)

Syntaxe

Voici la syntaxe simple de cette fonction -

getprotoent

Valeur de retour

Cette fonction renvoie undef en cas d'erreur sinon le numéro de protocole dans un contexte scalaire et une liste vide sur l'enregistrement de protocole d'erreur (nom, alias, numéro de protocole) dans un contexte de liste.

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

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 = 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