home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _458f44e7674240ab351bc223afedac75 < prev    next >
Encoding:
Text File  |  2000-03-23  |  5.5 KB  |  153 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Net::netent - by-name interface to Perl's built-in getnet* functions</TITLE>
  5. <LINK REL="stylesheet" HREF="../../Active.css" TYPE="text/css">
  6. <LINK REV="made" HREF="mailto:">
  7. </HEAD>
  8.  
  9. <BODY>
  10. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  11. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  12. <STRONG><P CLASS=block> Net::netent - by-name interface to Perl's built-in getnet* functions</P></STRONG>
  13. </TD></TR>
  14. </TABLE>
  15.  
  16. <A NAME="__index__"></A>
  17. <!-- INDEX BEGIN -->
  18.  
  19. <UL>
  20.  
  21.     <LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI>
  22.  
  23.     <LI><A HREF="#synopsis">SYNOPSIS</A></LI>
  24.     <LI><A HREF="#description">DESCRIPTION</A></LI>
  25.     <LI><A HREF="#examples">EXAMPLES</A></LI>
  26.     <LI><A HREF="#note">NOTE</A></LI>
  27.     <LI><A HREF="#author">AUTHOR</A></LI>
  28. </UL>
  29. <!-- INDEX END -->
  30.  
  31. <HR>
  32. <P>
  33. <H1><A NAME="name">NAME</A></H1>
  34. <P>Net::netent - by-name interface to Perl's built-in getnet*() functions</P>
  35. <P>
  36. <HR>
  37. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  38. <UL>
  39. <LI>Linux</LI>
  40. <LI>Solaris</LI>
  41. <LI>Windows</LI>
  42. </UL>
  43. <HR>
  44. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  45. <PRE>
  46.  use Net::netent qw(:FIELDS);
  47.  getnetbyname("loopback")               or die "bad net";
  48.  printf "%s is %08X\n", $n_name, $n_net;</PRE>
  49. <PRE>
  50.  use Net::netent;</PRE>
  51. <PRE>
  52.  $n = getnetbyname("loopback")          or die "bad net";
  53.  { # there's gotta be a better way, eh?
  54.      @bytes = unpack("C4", pack("N", $n->net));
  55.      shift @bytes while @bytes && $bytes[0] == 0;
  56.  }
  57.  printf "%s is %08X [%d.%d.%d.%d]\n", $n->name, $n->net, @bytes;</PRE>
  58. <P>
  59. <HR>
  60. <H1><A NAME="description">DESCRIPTION</A></H1>
  61. <P>This module's default exports override the core <A HREF="../../lib/Pod/perlfunc.html#item_getnetbyname"><CODE>getnetbyname()</CODE></A> and
  62. <A HREF="../../lib/Pod/perlfunc.html#item_getnetbyaddr"><CODE>getnetbyaddr()</CODE></A> functions, replacing them with versions that return
  63. ``Net::netent'' objects.  This object has methods that return the similarly
  64. named structure field name from the C's netent structure from <EM>netdb.h</EM>;
  65. namely name, aliases, addrtype, and net.  The aliases 
  66. method returns an array reference, the rest scalars.</P>
  67. <P>You may also import all the structure fields directly into your namespace
  68. as regular variables using the :FIELDS import tag.  (Note that this still
  69. overrides your core functions.)  Access these fields as variables named
  70. with a preceding <CODE>n_</CODE>.  Thus, <CODE>$net_obj->name()</CODE> corresponds to
  71. $n_name if you import the fields.  Array references are available as
  72. regular array variables, so for example <CODE>@{ $net_obj->aliases()
  73. }</CODE> would be simply @n_aliases.</P>
  74. <P>The <CODE>getnet()</CODE> function is a simple front-end that forwards a numeric
  75. argument to getnetbyaddr(), and the rest
  76. to getnetbyname().</P>
  77. <P>To access this functionality without the core overrides,
  78. pass the <A HREF="../../lib/Pod/perlfunc.html#item_use"><CODE>use</CODE></A> an empty import list, and then access
  79. function functions with their full qualified names.
  80. On the other hand, the built-ins are still available
  81. via the <CODE>CORE::</CODE> pseudo-package.</P>
  82. <P>
  83. <HR>
  84. <H1><A NAME="examples">EXAMPLES</A></H1>
  85. <P>The <CODE>getnet()</CODE> functions do this in the Perl core:</P>
  86. <PRE>
  87.     sv_setiv(sv, (I32)nent->n_net);</PRE>
  88. <P>The <CODE>gethost()</CODE> functions do this in the Perl core:</P>
  89. <PRE>
  90.     sv_setpvn(sv, hent->h_addr, len);</PRE>
  91. <P>That means that the address comes back in binary for the
  92. host functions, and as a regular perl integer for the net ones.
  93. This seems a bug, but here's how to deal with it:</P>
  94. <PRE>
  95.  use strict;
  96.  use Socket;
  97.  use Net::netent;</PRE>
  98. <PRE>
  99.  @ARGV = ('loopback') unless @ARGV;</PRE>
  100. <PRE>
  101.  my($n, $net);</PRE>
  102. <PRE>
  103.  for $net ( @ARGV ) {</PRE>
  104. <PRE>
  105.      unless ($n = getnetbyname($net)) {
  106.         warn "$0: no such net: $net\n";
  107.         next;
  108.      }</PRE>
  109. <PRE>
  110.      printf "\n%s is %s%s\n", 
  111.             $net, 
  112.             lc($n->name) eq lc($net) ? "" : "*really* ",
  113.             $n->name;</PRE>
  114. <PRE>
  115.      print "\taliases are ", join(", ", @{$n->aliases}), "\n"
  116.                 if @{$n->aliases};</PRE>
  117. <PRE>
  118.      # this is stupid; first, why is this not in binary?
  119.      # second, why am i going through these convolutions
  120.      # to make it looks right
  121.      {
  122.         my @a = unpack("C4", pack("N", $n->net));
  123.         shift @a while @a && $a[0] == 0;
  124.         printf "\taddr is %s [%d.%d.%d.%d]\n", $n->net, @a;
  125.      }</PRE>
  126. <PRE>
  127.      if ($n = getnetbyaddr($n->net)) {
  128.         if (lc($n->name) ne lc($net)) {
  129.             printf "\tThat addr reverses to net %s!\n", $n->name;
  130.             $net = $n->name;
  131.             redo;
  132.         } 
  133.      }
  134.  }</PRE>
  135. <P>
  136. <HR>
  137. <H1><A NAME="note">NOTE</A></H1>
  138. <P>While this class is currently implemented using the Class::Struct
  139. module to build a struct-like class, you shouldn't rely upon this.</P>
  140. <P>
  141. <HR>
  142. <H1><A NAME="author">AUTHOR</A></H1>
  143. <P>Tom Christiansen</P>
  144. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  145. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  146. <STRONG><P CLASS=block> Net::netent - by-name interface to Perl's built-in getnet* functions</P></STRONG>
  147. </TD></TR>
  148. </TABLE>
  149.  
  150. </BODY>
  151.  
  152. </HTML>
  153.