Copyright © tutorialspoint.com

# PERL endservent Function

## Syntax

endservent

## Definition and Usage

Tells the system you no longer expect to read entries from the services file using getservent.

## Return Value

- None

## Example

Try out following example:

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

Copyright © tutorialspoint.com