Fonction getservbyname de Perl

La description

Cette fonction traduit le NOM du service pour le protocole PROTO, renvoyant le numéro de service dans un contexte scalaire et le numéro et les informations associées dans un contexte de liste -

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

Cet appel renvoie ces valeurs en fonction du fichier / etc / services.

Syntaxe

Voici la syntaxe simple de cette fonction -

getservbyname NAME, PROTO

Valeur de retour

Cette fonction renvoie undef en cas d'erreur sinon numéro de service dans un contexte scalaire et 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

($name, $aliases, $port_number, $protocol_name) = getservbyname("ftp", "tcp");
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 = ftp
Aliases = 
Port Number = 21
Protocol Name = tcp