Perl getprotoent()函数

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

语法

getprotoent

定义和用法

从列表中返回下一个项目的有效协议:

($name, $aliases, $protocol_number)

返回值

• 在标量上下文的错误返回undef，否则协议的名称。

• 空列表，在列表上下文中的错误协议记录 (name, aliases, protocol number)

实例

试试以下例子:

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


while(($name, $aliases, $protocol_number) = getprotoent()){
   print "Name = $name\n";
   print "Aliases = $aliases\n";
   print "Protocol Number = $protocol_number\n";
}