Perl getservbyport()函数

perl getservbyport()函数，getservbyport()函数学习例子，getservbyport()函数实例代码，getservbyport()函数在线教程等

语法

getservbyport PORT, PROTO

定义和用法

转换服务号端口的协议PROTO，返回标量上下文的名称和相关信息在列表环境中的服务名称：

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

此调用返回基础/etc/services文件的这些值。

返回值

• 在标量上下文上的错误返回undef，否则服务号码

• 在列表上下文中的空列表上的错误，否则服务记录 (name, aliases, port number, protocol name).

例子

试一试以下实例:

#!/usr/bin/perl
#by www.gitbook.net

($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";

It will produce following result

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