Funzione endservent Perl

Descrizione

Questa funzione dice al sistema che non ti aspetti più di leggere le voci dal file dei servizi utilizzando getservent.

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

endservent

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;

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;