Perl getservbyname()函数

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

语法

getservbyname NAME, 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) = getservbyname("ftp", "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