Función perl sethostent

Descripción

Esta función debe llamarse antes de la primera llamada a gethostent. El argumento STAYOPEN es opcional y no se utiliza en la mayoría de los sistemas.

A medida que gethostent () recupera la información de la siguiente línea en la base de datos del host, sethostent establece (o restablece) la enumeración al comienzo del conjunto de entradas del host.

Sintaxis

A continuación se muestra la sintaxis simple para esta función:

sethostent STAYOPEN

Valor devuelto

Esta función no devuelve ningún valor.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico:

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

Cuando se ejecuta el código anterior, produce el siguiente resultado:

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  =