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;