无涯教程-Perl - getservent函数

描述

此函数从服务条目列表中获取下一个条目,返回-

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

此调用通过/etc/services文件进行迭代。

语法

以下是此函数的简单语法-

getservent

返回值

此函数在错误时返回undef,否则在标量context中返回服务名称,在错误时返回空列表,否则在列表context中返回服务记录(名称,别名,端口号,协议名称)。

例

以下是显示其基本用法的示例代码-

#!/usr/bin/perl
while(($name,$aliases,$port_number,$protocol_name) = getservent()) {
print "Name = $name\n";
   print "Aliases =$aliases\n";
print "Port Number = $port_number\n";
   print "Protocol Name =$protocol_name\n";
}

执行上述代码后,将产生以下输出-

Name = tcpmux
Aliases = 
Port Number = 1
Protocol Name = tcp
Name = tcpmux
Aliases = 
Port Number = 1
Protocol Name = udp
Name = rje
Aliases = 
Port Number = 5
Protocol Name = tcp
Name = rje
Aliases = 
Port Number = 5
Protocol Name = udp
.
.
.
Name = iclpv-sc
Aliases = 
Port Number = 1390
Protocol Name = tcp
Name = iclpv-sc
Aliases = 
Port Number = 1390
Protocol Name = udp
Name = iclpv-sas
Aliases = 
Port Number = 1391
Protocol Name = tcp
Name = iclpv-sas
Aliases = 
Port Number = 1391
Protocol Name = udp
Na

参考链接

www.learnfk.com/perl/perl-g…