Perl getservent()函数

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

语法

getservent

定义和用法

获取下一个项目从列表中的服务条目，返回：

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

调用itrate通过处理/etc/services文件。

返回值

• 在标量上下文错误返回undef，否则服务名称。

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

实例

试试以下例子:

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

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

}