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";
}
页:
[1]