Funzione setservent di Perl

Descrizione

Questa funzione dovrebbe essere chiamata prima della prima chiamata a getservent. L'argomento STAYOPEN è facoltativo e inutilizzato sulla maggior parte dei sistemi. Mentre getservent () recupera le informazioni per la riga successiva nel database dei servizi, quindi setservent imposta (o reimposta) l'enumerazione all'inizio dell'insieme di voci host.

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

setservent 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, $port_number, 
   $protocol_name) = getservent()) {

   print "Name = $name\n";
   print "Aliases = $aliases\n";
   print "Port Number = $port_number\n";
   print "Protocol Name = $protocol_name\n";

}

setservent();   # Rewind the database /etc/services;

while(($name, $aliases, $port_number,
   $protocol_name) = getservent()) {

   print "Name = $name\n";
   print "Aliases = $aliases\n";
   print "Port Number = $port_number\n";
   print "Protocol Name = $protocol_name\n";

}

endservent();  # Closes the database;