在第一次调用getservent之前,应先调用此函数。 STAYOPEN参数是可选的,在大多数系统上未使用。当getservent()检索服务数据库中下一行的信息时,然后setervent设置(或重置)枚举到主机条目集的开头。
以下是此函数的简单语法-
链接:https://www.learnfk.comhttps://www.learnfk.com/perl/perl-setservent.html
来源:LearnFk无涯教程网
setservent STAYOPEN
此函数不返回任何值。
以下是显示其基本用法的示例代码-
#!/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; 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;
祝学习愉快!(内容编辑有误?请选中要编辑内容 -> 右键 -> 修改 -> 提交!)
Tony Bai · Go语言第一课 -〔Tony Bai〕