Perl endservent()函数

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

语法

endservent

定义和用法

让你的系统不再期望使用getservent从服务文件读取条目。

返回值

• None

实例

试试下面的例子：

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

}

setservent();   # Rewind the database;

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

}
#by www.gitbook.net
endservent();  # Closes the database;