Función setervent de Perl

Descripción

Esta función debe llamarse antes de la primera llamada a getservent. El argumento STAYOPEN es opcional y no se utiliza en la mayoría de los sistemas. A medida que getservent () recupera la información para la siguiente línea en la base de datos de servicios, setervent 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:

setservent 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, $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;