Perl endnetent()函数

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

语法

endnetent

定义和用法

让你的系统不再期望使用getnetent从网络列表中读取条目。

返回值

• None

例子

试试以下例子：

#!/usr/bin/perl

use Socket;

while ( ($name, $aliases, $addrtype, $net)  = getnetent() ){

   print "Name = $name\n";
   print "Aliases = $aliases\n";
   print "Addrtype = $addrtype\n";
   print "Net = $net\n";
}

setnetent(1); # Rewind the database;
#by www.gitbook.net
while ( ($name, $aliases, $addrtype, $net)  = getnetent() ){

   print "Name = $name\n";
   print "Aliases = $aliases\n";
   print "Addrtype = $addrtype\n";
   print "Net = $net\n";
}

endnetent();  # Closes the database;