Perl 中的 getservent函数

首页 / Perl入门教程 / Perl 中的 getservent函数

描述

此函数从服务条目列表中获取下一个条目,返回-

($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

祝学习愉快!(内容编辑有误?请选中要编辑内容 -> 右键 -> 修改 -> 提交!)

技术教程推荐

Java核心技术面试精讲 -〔杨晓峰〕

React实战进阶45讲 -〔王沛〕

Python核心技术与实战 -〔景霄〕

DDD实战课 -〔欧创新〕

打造爆款短视频 -〔周维〕

说透5G -〔杨四昌〕

PyTorch深度学习实战 -〔方远〕

快手 · 音视频技术入门课 -〔刘歧〕

JavaScript进阶实战课 -〔石川〕

好记忆不如烂笔头。留下您的足迹吧 :)