Fonction getervent de Perl

La description

Cette fonction obtient l'entrée suivante de la liste des entrées de service, renvoyant -

($ nom, $ alias, $ numéro_port, $ nom_protocole)

Cet appel itère via le fichier / etc / services.

Syntaxe

Voici la syntaxe simple de cette fonction -

getservent

Valeur de retour

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

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

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

Name = tcpmux
Aliases = 
Port Number = 1
Protocol Name = tcp
Name = tcpmux
Aliases = 
Port Number = 1
Protocol Name = udp
Name = rje
Aliases = 
Port Number = 5
Protocol Name = tcp
Name = rje
Aliases = 
Port Number = 5
Protocol Name = udp
.
.
.
Name = iclpv-sc
Aliases = 
Port Number = 1390
Protocol Name = tcp
Name = iclpv-sc
Aliases = 
Port Number = 1390
Protocol Name = udp
Name = iclpv-sas
Aliases = 
Port Number = 1391
Protocol Name = tcp
Name = iclpv-sas
Aliases = 
Port Number = 1391
Protocol Name = udp
Na