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.yiibai.com

use Socket;

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

   print "Name = $name\n";
   print "Aliases = $aliases\n";
   print "Addrtype = $addrtype\n";
   print "Net = $net\n";
}
posted @ 2012-08-26 22:32  易百教程  阅读(188)  评论(0编辑  收藏  举报