Funzione sethostent Perl

Descrizione

Questa funzione dovrebbe essere chiamata prima della prima chiamata a gethostent. L'argomento STAYOPEN è facoltativo e inutilizzato sulla maggior parte dei sistemi.

Mentre gethostent () recupera le informazioni per la riga successiva nel database host, sethostent imposta (o reimposta) l'enumerazione all'inizio dell'insieme di voci host.

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

sethostent STAYOPEN

Valore di ritorno

Questa funzione non restituisce alcun valore.

Esempio

Di seguito è riportato il codice di esempio che mostra il suo utilizzo di base:

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

Quando viene eseguito il codice sopra, produce il seguente risultato:

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  =