Perl setnetent 函数
描述
此函数应在第一次调用 getnetent 之前调用。 STAYOPEN 参数是可选的，在大多数系统上未使用。 由于 getnetent() 从网络数据库中的下一行重新检索信息，然后 setnetent 将枚举设置（或重置）到主机条目集的开头。
语法
以下是此函数的简单语法 −
setnetent STAYOPEN
返回值
此函数不返回任何值。
示例
以下是显示其基本用法的示例代码 −
#!/usr/bin/perl
use Socket;
while ( ($name, $aliases, $addrtype, $net) = getnetent() ) {
print "Name = $name\n";
print "Aliases = $aliases\n";
print "Addrtype = $addrtype\n";
print "Net = $net\n";
}
setnetent(1); # Rewind the database;
while ( ($name, $aliases, $addrtype, $net) = getnetent() ) {
print "Name = $name\n";
print "Aliases = $aliases\n";
print "Addrtype = $addrtype\n";
print "Net = $net\n";
}
endnetent(); # Closes the database;
执行上述代码时，会产生以下结果 −
Name = default Aliases = Addrtype = 2 Net = 0 Name = loopback Aliases = Addrtype = 2 Net = 2130706432 Name = link-local Aliases = Addrtype = 2 Net = 2851995648 Name = default Aliases = Addrtype = 2 Net = 0 Name = loopback Aliases = Addrtype = 2 Net = 2130706432 Name = link-local Aliases = Addrtype = 2 Net = 2851995648
