Perl setservent Function

Advertisements


Description

This function should be called before the first call to getservent. The STAYOPEN argument is optional and unused on most systems. As getservent() retriews the information for the next line in the services database, then setservent sets (or resets) the enumeration to the beginning of the set of host entries.

Syntax

Following is the simple syntax for this function:

setservent STAYOPEN

Return Value

This function does not return any value.

Example

Following is the example code showing its basic usage:

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

When above code is executed, it produced following result




Advertisements
Advertisements