描述
这个函数应该在第一次调用 getprotoent 之前调用。 STAYOPEN 参数是可选的,在大多数系统上都未使用。当 getprotoent() 检索协议数据库中下一行的信息时,setprotoent 将枚举设置(或重置)到主机条目集的开头。
用法
以下是此函数的简单语法 -
setprotoent STAYOPEN
返回值
此函数不返回任何值。
示例
以下是显示其基本用法的示例代码 -
#!/usr/bin/perl
while(($name, $aliases, $protocol_number) = getprotoent()) {
print "Name = $name\n";
print "Aliases = $aliases\n";
print "Protocol Number = $protocol_number\n";
}
setprotoent(1); # Rewind the database.
while(($name, $aliases, $protocol_number) = getprotoent()) {
print "Name = $name\n";
print "Aliases = $aliases\n";
print "Protocol Number = $protocol_number\n";
}
endprotoent(); # Closes the database
执行上述代码时,会产生以下结果 -
Name = ip Aliases = IP Protocol Number = 0 Name = hopopt Aliases = HOPOPT Protocol Number = 0 Name = icmp Aliases = ICMP Protocol Number = 1 Name = igmp Aliases = IGMP Protocol Number = 2 Name = ggp Aliases = GGP Protocol Number = 3 Name = ipencap Aliases = IP-ENCAP Protocol Number = 4 Name = st Aliases = ST Protocol Number = 5 . . . Name = rsvp-e2e-ignore Aliases = RSVP-E2E-IGNORE Protocol Number = 134 Name = udplite Aliases = UDPLite Protocol Number = 136 Name = mpls-in-ip Aliases = MPLS-in-IP Protocol Number = 137 Name = manet Aliases = manet Protocol Number = 138 Name = hip Aliases = HIP Protocol Number = 139 Name = shim6 Aliases = Shim6 Protocol Number = 140
相关用法
- Perl setpriority用法及代码示例
- Perl setpwent用法及代码示例
- Perl sethostent用法及代码示例
- Perl setgrent用法及代码示例
- Perl setsockopt用法及代码示例
- Perl setnetent用法及代码示例
- Perl setservent用法及代码示例
- Perl semget用法及代码示例
- Perl send用法及代码示例
- Perl seekdir用法及代码示例
- Perl semctl用法及代码示例
- Perl semop用法及代码示例
- Perl select用法及代码示例
- Perl sin()用法及代码示例
- Perl split用法及代码示例
- Perl shmctl用法及代码示例
- Perl splice用法及代码示例
注:本文由纯净天空筛选整理自 Perl setprotoent Function。非经特殊声明,原始代码版权归原作者所有,本译文未经允许或授权,请勿转载或复制。