描述
此函数告诉系统您不再希望使用gethostent从hosts文件读取条目。
语法
以下是此函数的简单语法-
endhostent
返回值
此函数不返回任何值。
例
以下是显示其基本用法的示例代码-
#!/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 =
参考链接
https://www.learnfk.com/perl/perl-endhostent.html
标签:Addr,ip,无涯,endhostent,Perl,62,Addrs,print,localhost From: https://blog.51cto.com/u_14033984/6993504