- 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 sethostent Function
Description
This function should be called before the first call to gethostent. The STAYOPEN argument is optional and unused on most systems.
As gethostent() retriews the information for the next line in the host database, then sethostent sets (or resets) the enumeration to the beginning of the set of host entries.
Syntax
Following is the simple syntax for this function −
sethostent 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, $addrtype, $length, @addrs) = gethostent() ) { print "Name = $name\n"; print "Aliases = $aliases\n"; print "Addr Type = $addrtype\n"; print "Length = $length\n"; print "Addrs = @addrs\n"; } sethostent(1); while( ($name, $aliases, $addrtype, $length, @addrs) = gethostent() ) { print "Name = $name\n"; print "Aliases = $aliases\n"; print "Addr Type = $addrtype\n"; print "Length = $length\n"; print "Addrs = @addrs\n"; } endhostent(); # Closes the database;
When above code is executed, it produces the following result −
Name = ip-50-62-147-141.ip.secureserver.net Aliases = ip-50-62-147-141 localhost.secureserver.net localhost.localdomain localhost Addr Type = 2 Length = 4 Addrs = Name = ip-50-62-147-141.ip.secureserver.net Aliases = ip-50-62-147-141 localhost.secureserver.net localhost.localdomain localhost Addr Type = 2 Length = 4 Addrs =
perl_function_references.htm
Advertisements
To Continue Learning Please Login
Login with Google