Funzione Perl getservbyport

Descrizione

Questa funzione traduce il numero di servizio PORT per il protocollo PROTO, restituendo il nome del servizio in un contesto scalare e il nome e le informazioni associate in un contesto di lista -

($ nome, $ alias, $ numero_porta, $ nome_protocollo)

Questa chiamata restituisce questi valori in base al file / etc / services.

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

getservbyport PORT, PROTO

Valore di ritorno

Questa funzione restituisce undef in caso di errore altrimenti il ​​numero del servizio in contesto scalare e l'elenco vuoto in caso di errore altrimenti Record di servizio (nome, alias, numero di porta, nome protocollo) nel contesto della lista.

Esempio

Di seguito è riportato il codice di esempio che mostra il suo utilizzo di 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";

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

Name = ftp
Aliases = 
Port Number = 21
Protocol Name = tcp