Fonction getservbyport de Perl

La description

Cette fonction traduit le numéro de service PORT pour le protocole PROTO, renvoyant le nom du service dans un contexte scalaire et le nom 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 -

getservbyport PORT, 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) = getservbyport(21, "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