此函数告诉系统您不再希望使用gethostent从hosts文件读取条目。
以下是此函数的简单语法-
endhostent
此函数不返回任何值。
以下是显示其基本用法的示例代码-
链接:https://www.learnfk.comhttps://www.learnfk.com/perl/perl-endhostent.html
来源:LearnFk无涯教程网
#!/usr/bin/perl while( ($name, $aliases, $addrtype, $length, @addrs)=gethostent() ) { print "Name =$name\n"; print "Aliases =$aliases\n"; print "Addr Type =$addrtype\n"; print "Length =$length\n"; print "Addrs =@addrs\n"; } sethostent(1); while( ($name, $aliases, $addrtype, $length, @addrs)=gethostent() ) { print "Name =$name\n"; print "Aliases =$aliases\n"; print "Addr Type =$addrtype\n"; print "Length =$length\n"; print "Addrs =@addrs\n"; } endhostent(); # Closes the database;
执行上述代码后,将产生以下输出-
Name =ip-50-62-147-141.ip.secureserver.net Aliases =ip-50-62-147-141 localhost.secureserver.net localhost.localdomain localhost Addr Type =2 Length =4 Addrs = Name =ip-50-62-147-141.ip.secureserver.net Aliases =ip-50-62-147-141 localhost.secureserver.net localhost.localdomain localhost Addr Type =2 Length =4 Addrs =
祝学习愉快!(内容编辑有误?请选中要编辑内容 -> 右键 -> 修改 -> 提交!)