此函数从服务条目列表中获取下一个条目,返回-
($name,$aliases,$port_number,$protocol_name)
此调用通过/etc/services文件进行迭代。
以下是此函数的简单语法-
getservent
此函数在错误时返回undef,否则在标量context中返回服务名称,在错误时返回空列表,否则在列表context中返回服务记录(名称,别名,端口号,协议名称)。
以下是显示其基本用法的示例代码-
链接:https://www.learnfk.comhttps://www.learnfk.com/perl/perl-getservent.html
来源:LearnFk无涯教程网
#!/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"; }
执行上述代码后,将产生以下输出-
Name = tcpmux Aliases = Port Number = 1 Protocol Name = tcp Name = tcpmux Aliases = Port Number = 1 Protocol Name = udp Name = rje Aliases = Port Number = 5 Protocol Name = tcp Name = rje Aliases = Port Number = 5 Protocol Name = udp . . . Name = iclpv-sc Aliases = Port Number = 1390 Protocol Name = tcp Name = iclpv-sc Aliases = Port Number = 1390 Protocol Name = udp Name = iclpv-sas Aliases = Port Number = 1391 Protocol Name = tcp Name = iclpv-sas Aliases = Port Number = 1391 Protocol Name = udp Na
祝学习愉快!(内容编辑有误?请选中要编辑内容 -> 右键 -> 修改 -> 提交!)