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 =