Funzione getprotoent Perl

Descrizione

Questa funzione restituisce la voce successiva dall'elenco dei protocolli validi: ($ name, $ aliases, $ protocol_number)

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

getprotoent

Valore di ritorno

Questa funzione restituisce undef in caso di errore, altrimenti il ​​numero di protocollo nel contesto scalare e l'elenco vuoto sul record di protocollo di errore (nome, alias, numero di protocollo) nel contesto dell'elenco.

Esempio

Di seguito è riportato il codice di esempio che mostra il suo utilizzo di base:

#!/usr/bin/perl

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

Quando viene eseguito il codice sopra, produce il seguente risultato:

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