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