perl setprotoent()函数

语法

定义和用法

为得到protoent()检索信息的协议数据库中的下一行，然后setprotoent集（或重置）枚举的主机项的设置开始。这个函数应该被调用之前在第一次调用getprotoent。STAYOPEN参数是可选的，在大多数系统上未使用过的。

返回值

• Nothing

例子

试试下面的例子：

#!/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";
}

setprotoent(1); # Rewind the database.

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