~ubuntu-branches/ubuntu/intrepid/perl-doc-html/intrepid

<div id="breadCrumbs"><a href="../index.html">Home</a> > <a href="../index-modules-A.html">Core modules</a> > <a href="../index-modules-N.html">N</a> > Net::hostent</div>

<div id="contentBody"><div class="title_container"><div class="page_title">Net::hostent</div></div><ul><li><a href="#NAME">NAME</a><li><a href="#SYNOPSIS">SYNOPSIS</a><li><a href="#DESCRIPTION">DESCRIPTION</a><li><a href="#EXAMPLES">EXAMPLES</a><li><a href="#NOTE">NOTE</a><li><a href="#AUTHOR">AUTHOR</a></ul><a name="NAME"></a><h1>NAME</h1>

Net::hostent - by-name interface to Perl's built-in gethost*() functions

<a name="SYNOPSIS"></a><h1>SYNOPSIS</h1>

<pre class="verbatim"> <a class="l_k" href="../functions/use.html">use</a> <a class="l_w" href="../Net/hostent.html">Net::hostent</a>;</pre>

<pre class="verbatim"> <a class="l_k" href="../functions/use.html">use</a> Net::hostent;</pre>

<a name="DESCRIPTION"></a><h1>DESCRIPTION</h1>

This module's default exports override the core gethostbyname() and

gethostbyaddr() functions, replacing them with versions that return

100

You may also import all the structure fields directly into your namespace

101

as regular variables using the :FIELDS import tag. (Note that this still

102

overrides your core functions.) Access these fields as variables named

100

with a preceding <code class="inline">h_</code>

103

with a preceding <code class="inline">h_</code>

101

104

. Thus, <code class="inline">$host_obj->name()</code>

102

105

corresponds to

103

106

$h_name if you import the fields. Array references are available as

111

114

pass the <code class="inline"><a class="l_k" href="../functions/use.html">use</a></code> an empty import list, and then access

112

115

function functions with their full qualified names.

113

116

On the other hand, the built-ins are still available

114

via the <code class="inline">CORE::</code>

117

via the <code class="inline">CORE::</code>

115

118

pseudo-package.

116

119

<a name="EXAMPLES"></a><h1>EXAMPLES</h1>

117

<pre class="verbatim"> <a class="l_k" href="../functions/use.html">use</a> <a class="l_w" href="../Net/hostent.html">Net::hostent</a>;

118

<a class="l_k" href="../functions/use.html">use</a> <a class="l_w" href="../Socket.html">Socket</a>;</pre>

120

<pre class="verbatim"> <a class="l_k" href="../functions/use.html">use</a> Net::hostent;

121

<a class="l_k" href="../functions/use.html">use</a> Socket;</pre>

119

122

<pre class="verbatim"> @ARGV = ('netscape.com') unless @ARGV;</pre>

120

123

<pre class="verbatim"> for $host ( @ARGV ) {</pre><pre class="verbatim"> unless ($h = gethost($host)) {

121

124

<a class="l_k" href="../functions/warn.html">warn</a> "$0: no such host: $host\n";

126

129

<a class="l_k" href="../functions/lc.html">lc</a>($h->name) eq <a class="l_k" href="../functions/lc.html">lc</a>($host) ? "" : "*really* ",

127

130

$h->name;</pre>

128

131

<pre class="verbatim"> <a class="l_k" href="../functions/print.html">print</a> "\taliases are ", <a class="l_k" href="../functions/join.html">join</a>(", ", @{$h->aliases}), "\n"

129

if @{$h->aliases}; </pre>

132

if @{$h->aliases};</pre>

130

133

<pre class="verbatim"> if ( @{$h->addr_list} > 1 ) {

131

134

<a class="l_k" href="../functions/my.html">my</a> $i;

132

135

for $addr ( @{$h->addr_list} ) {

134

137

}

135

138

} else {

136

139

<a class="l_k" href="../functions/printf.html">printf</a> "\taddress is [%s]\n", inet_ntoa($h->addr);

137

} </pre>

140

}</pre>

138

141

<pre class="verbatim"> if ($h = gethostbyaddr($h->addr)) {

139

142

if (lc($h->name) ne lc($host)) {

140

143

printf "\tThat addr reverses to host %s!\n", $h->name;

164

167

165

168

</form>

166

169

170

167

171

<h2>Labels:</h2>

168

172

169

173

Older »