The stupid question is the question not asked | |
PerlMonks |
perlman:Net::hostentby root (Monk) |
on Dec 23, 1999 at 00:52 UTC ( [id://1230]=perlfunc: print w/replies, xml ) | Need Help?? |
Net::hostentSee the current Perl documentation for Net::hostent. Here is our local, out-dated (pre-5.6) version: Net::hostent - by-name interface to Perl's built-in gethost*() functions
use Net::hostnet;
This module's default exports override the core
You may also import all the structure fields directly into your namespace as regular variables using the
:FIELDS import tag. (Note that this still overrides your core functions.) Access these fields as variables named with a preceding
The
To access this functionality without the core overrides, pass the use an empty import list, and then access function functions with their full
qualified names. On the other hand, the built-ins are still available via
the
EXAMPLES
use Net::hostent; use Socket;
@ARGV = ('netscape.com') unless @ARGV;
for $host ( @ARGV ) {
unless ($h = gethost($host)) { warn "$0: no such host: $host\n"; next; }
printf "\n%s is %s%s\n", $host, lc($h->name) eq lc($host) ? "" : "*really* ", $h->name;
print "\taliases are ", join(", ", @{$h->aliases}), "\n" if @{$h->aliases};
if ( @{$h->addr_list} > 1 ) { my $i; for $addr ( @{$h->addr_list} ) { printf "\taddr #%d is [%s]\n", $i++, inet_ntoa($addr); } } else { printf "\taddress is [%s]\n", inet_ntoa($h->addr); }
if ($h = gethostbyaddr($h->addr)) { if (lc($h->name) ne lc($host)) { printf "\tThat addr reverses to host %s!\n", $h->name; $host = $h->name; redo; } } }
NOTEWhile this class is currently implemented using the Class::Struct module to build a struct-like class, you shouldn't rely upon this.
AUTHORTom Christiansen |
|