Perl endhostent()函数

perl endhostent()函数，endhostent()函数学习例子，endhostent()函数实例代码，endhostent()函数在线教程等

语法

endhostent

定义和使用

让你的系统不再期望使用gethostent从主机文件中读取条目。

返回值

• None

实例

试试下面的例子：

#!/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";
}

#by www.gitbook.net
endhostent();  # Closes the database;