Perl Home
PERL Functions
© 2011 TutorialsPoint.COM
|
PERL endservent Function
Syntax
Definition and Usage
Tells the system you no longer expect to read entries from the services file using getservent.
Return Value
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;
|
|

|
|
|