Perl getservbyport Function

Advertisements


Description

This function Translates the service number PORT for the protocol PROTO, returning the service name in a scalar context and the name and associated information in a list context:

($name, $aliases, $port_number, $protocol_name)

This call returns these values based on /etc/services file.

Syntax

Following is the simple syntax for this function:

getservbyport PORT, PROTO

Return Value

This function returns undef on error otherwise service number in scalar context and empty list on error otherwise Service record (name, aliases, port number, protocol name) in list context.

Example

Following is the example code showing its basic usage:

#!/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";

When above code is executed, it produced following result

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


Advertisements
Advertisements