Perl endpservent Function

Advertisements


Description

This function tells the system you no longer expect to read entries from the services file using getservent.

Syntax

Following is the simple syntax for this function:

endservent

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;

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