Edit D:\app\Administrator\product\11.2.0\dbhome_1\perl\html\lib\Net\hostent.html
<?xml version="1.0" ?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>Net::hostent - by-name interface to Perl's built-in gethost* functions</title> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rev="made" href="mailto:" /> </head> <body style="background-color: white"> <table border="0" width="100%" cellspacing="0" cellpadding="3"> <tr><td class="block" style="background-color: #cccccc" valign="middle"> <big><strong><span class="block"> Net::hostent - by-name interface to Perl's built-in gethost* functions</span></strong></big> </td></tr> </table> <!-- INDEX BEGIN --> <div name="index"> <p><a name="__index__"></a></p> <ul> <li><a href="#name">NAME</a></li> <li><a href="#synopsis">SYNOPSIS</a></li> <li><a href="#description">DESCRIPTION</a></li> <li><a href="#examples">EXAMPLES</a></li> <li><a href="#note">NOTE</a></li> <li><a href="#author">AUTHOR</a></li> </ul> <hr name="index" /> </div> <!-- INDEX END --> <p> </p> <h1><a name="name">NAME</a></h1> <p>Net::hostent - by-name interface to Perl's built-in gethost*() functions</p> <p> </p> <hr /> <h1><a name="synopsis">SYNOPSIS</a></h1> <pre> use Net::hostent;</pre> <p> </p> <hr /> <h1><a name="description">DESCRIPTION</a></h1> <p>This module's default exports override the core <a href="file://C|\ADE\aime_smenon_perl_090715\perl\html/pod/perlfunc.html#gethostbyname"><code>gethostbyname()</code></a> and <a href="file://C|\ADE\aime_smenon_perl_090715\perl\html/pod/perlfunc.html#gethostbyaddr"><code>gethostbyaddr()</code></a> functions, replacing them with versions that return "Net::hostent" objects. This object has methods that return the similarly named structure field name from the C's hostent structure from <em class="file">netdb.h</em>; namely name, aliases, addrtype, length, and addr_list. The aliases and addr_list methods return array reference, the rest scalars. The addr method is equivalent to the zeroth element in the addr_list array reference.</p> <p>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 <code>h_</code>. Thus, <code>$host_obj->name()</code> corresponds to $h_name if you import the fields. Array references are available as regular array variables, so for example <code>@{ $host_obj->aliases() }</code> would be simply @h_aliases.</p> <p>The <code>gethost()</code> function is a simple front-end that forwards a numeric argument to <a href="file://C|\ADE\aime_smenon_perl_090715\perl\html/pod/perlfunc.html#gethostbyaddr"><code>gethostbyaddr()</code></a> by way of Socket::inet_aton, and the rest to <a href="file://C|\ADE\aime_smenon_perl_090715\perl\html/pod/perlfunc.html#gethostbyname"><code>gethostbyname()</code></a>.</p> <p>To access this functionality without the core overrides, pass the <a href="file://C|\ADE\aime_smenon_perl_090715\perl\html/pod/perlfunc.html#use"><code>use</code></a> 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 <code>CORE::</code> pseudo-package.</p> <p> </p> <hr /> <h1><a name="examples">EXAMPLES</a></h1> <pre> use Net::hostent; use Socket;</pre> <pre> @ARGV = ('netscape.com') unless @ARGV;</pre> <pre> for $host ( @ARGV ) {</pre> <pre> unless ($h = gethost($host)) { warn "$0: no such host: $host\n"; next; }</pre> <pre> printf "\n%s is %s%s\n", $host, lc($h->name) eq lc($host) ? "" : "*really* ", $h->name;</pre> <pre> print "\taliases are ", join(", ", @{$h->aliases}), "\n" if @{$h->aliases};</pre> <pre> 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); }</pre> <pre> 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; } } }</pre> <p> </p> <hr /> <h1><a name="note">NOTE</a></h1> <p>While this class is currently implemented using the Class::Struct module to build a struct-like class, you shouldn't rely upon this.</p> <p> </p> <hr /> <h1><a name="author">AUTHOR</a></h1> <p>Tom Christiansen</p> <table border="0" width="100%" cellspacing="0" cellpadding="3"> <tr><td class="block" style="background-color: #cccccc" valign="middle"> <big><strong><span class="block"> Net::hostent - by-name interface to Perl's built-in gethost* functions</span></strong></big> </td></tr> </table> </body> </html>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de