- Perl 基础知识
- Perl - 主页
- Perl - 简介
- Perl - 环境
- Perl - 语法概述
- Perl - 数据类型
- Perl - 变量
- Perl - 标量
- Perl - 数组
- Perl - 哈希
- Perl - IF...ELSE
- Perl - 循环
- Perl - 运算符
- Perl - 日期和时间
- Perl - 子例程
- Perl - 参考资料
- Perl - 格式
- Perl - 文件 I/O
- Perl - 目录
- Perl - 错误处理
- Perl - 特殊变量
- Perl - 编码标准
- Perl - 正则表达式
- Perl - 发送电子邮件
- Perl 高级
- Perl - 套接字编程
- Perl - 面向对象
- Perl - 数据库访问
- Perl - CGI 编程
- Perl - 包和模块
- Perl - 流程管理
- Perl - 嵌入式文档
- Perl - 函数参考
- Perl 有用资源
- Perl - 问题与解答
- Perl - 快速指南
- Perl - 有用的资源
- Perl - 讨论
Perl getservent 函数
描述
该函数从服务条目列表中获取下一个条目,返回 -
($名称、$别名、$端口号、$协议名称)
此调用循环访问 /etc/services 文件。
句法
以下是该函数的简单语法 -
getservent
返回值
该函数在错误时返回 undef,否则在标量上下文中返回服务名称,在错误时返回空列表,否则在列表上下文中返回服务记录(名称、别名、端口号、协议名称)。
例子
以下是显示其基本用法的示例代码 -
#!/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
perl_function_references.htm