- Perl Basics
- Perl - Home
- Perl - Introduction
- Perl - Environment
- Perl - Syntax Overview
- Perl - Data Types
- Perl - Variables
- Perl - Scalars
- Perl - Arrays
- Perl - Hashes
- Perl - IF...ELSE
- Perl - Loops
- Perl - Operators
- Perl - Date & Time
- Perl - Subroutines
- Perl - References
- Perl - Formats
- Perl - File I/O
- Perl - Directories
- Perl - Error Handling
- Perl - Special Variables
- Perl - Coding Standard
- Perl - Regular Expressions
- Perl - Sending Email
- Perl Advanced
- Perl - Socket Programming
- Perl - Object Oriented
- Perl - Database Access
- Perl - CGI Programming
- Perl - Packages & Modules
- Perl - Process Management
- Perl - Embedded Documentation
- Perl - Functions References
- Perl Useful Resources
- Perl - Questions and Answers
- Perl - Quick Guide
- Perl - Useful Resources
- Perl - Discussion
Perl setservent Function
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;
perl_function_references.htm
Advertisements
To Continue Learning Please Login
Login with Google