此功能告诉系统您不再希望使用getprotoent从协议列表中读取条目。
以下是此函数的简单语法-
endprotoent
此函数不返回任何值。
以下是显示其基本用法的示例代码-
#!/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=tcp Aliases=TCP Protocol Number=6 . . . Name=manet Aliases=manet Protocol Number=138 Name=hip Aliases=HIP Protocol Number=139 Name=shim6 Aliases=Shim6 Protocol Number=140
祝学习愉快!(内容编辑有误?请选中要编辑内容 -> 右键 -> 修改 -> 提交!)