service name package

[Me]

How can I get a service name using IANA assigned port numbers?
I want pass a port number and possibly the protocol (tcp,udp,etc)
and have the name returned.

One package that does this but I can't get to install via CPAN
is Net::IANA:ortNumbers.

 

[Ted Zlatanov]

How can I get a service name using IANA assigned port numbers?
I want pass a port number and possibly the protocol (tcp,udp,etc)
and have the name returned.

One package that does this but I can't get to install via CPAN
is Net::IANA:ortNumbers.

Have look at "perldoc -f getservbyport".

my @data = getservbyport( 21, 'tcp' );
print "Service is: " . $data[0] if( @data );

Great answer, only one thing: this uses the machine's local
definitions of services (usually from /etc/services in a Unix
environment AFAIK). So if the OP wants the real IANA numbers, not the
ones defined by this particular system (and yes, they should be the
same) then they have to use the CPAN module mentioned above.

Ted