描述
此功能告诉系统您不再希望使用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
