setservent STAYOPEN |
getservent()检索的信息服务数据库中的下一行,然后setservent集(或重置)枚举的主机项的设置开始。该功能应该是在第一次调用前调用getservent。STAYOPEN参数是可选的,在大多数系统上未使用过。
Nothing
试试下面的例子:
#!/usr/bin/perl while(($name, $aliases, $port_number, $protocol_name) = getservent()){ print "Name = $name\n"; print "Aliases = $aliases\n"; print "Port Number = $port_number\n"; print "Protocol Name = $protocol_name\n"; } setservent(); # Rewind the database /etc/services; #by www.gitbook.net/perl while(($name, $aliases, $port_number, $protocol_name) = getservent()){ print "Name = $name\n"; print "Aliases = $aliases\n"; print "Port Number = $port_number\n"; print "Protocol Name = $protocol_name\n"; } endservent(); # Closes the database;