Perl getnetent()函數

perl getnetent()函數，getnetent()函數學習例子，getnetent()函數實例代碼，getnetent()函數教學等

語法

getnetent

定義和用法

從/etc/networks文件中獲取下一個項目返回：

($name, $aliases, $addrtype, $net)

如果/etc/networks文件是空的，那麼它也不會返回任何值，調用將失敗。

返回值

• 在標量上下文的錯誤返回undef，否則返回網絡名稱。

• 在列表上下文的錯誤返回空列表，否則網絡記錄(name, aliases, address type, network address).

實例

試試以下例子:

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

use Socket;

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

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