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