home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _763f18cb2825d50d3c5b2034e3f0071b < prev    next >
Encoding:
Text File  |  2000-03-23  |  5.0 KB  |  140 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>HTML::LinkExtor - Extract links from an HTML document</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> HTML::LinkExtor - Extract links from an HTML document</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="#example">EXAMPLE</A></LI>
  26.     <LI><A HREF="#see also">SEE ALSO</A></LI>
  27.     <LI><A HREF="#copyright">COPYRIGHT</A></LI>
  28. </UL>
  29. <!-- INDEX END -->
  30.  
  31. <HR>
  32. <P>
  33. <H1><A NAME="name">NAME</A></H1>
  34. <P>HTML::LinkExtor - Extract links from an HTML document</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.  require HTML::LinkExtor;
  47.  $p = HTML::LinkExtor->new(\&cb, "<A HREF="http://www.sn.no/"">http://www.sn.no/"</A>;);
  48.  sub cb {
  49.      my($tag, %links) = @_;
  50.      print "$tag @{[%links]}\n";
  51.  }
  52.  $p->parse_file("index.html");</PRE>
  53. <P>
  54. <HR>
  55. <H1><A NAME="description">DESCRIPTION</A></H1>
  56. <P>The <EM>HTML::LinkExtor</EM> is an HTML parser that extract links from an
  57. HTML document.  The <EM>HTML::LinkExtor</EM> is a subclass of
  58. <EM>HTML::Parser</EM>. This means that the document should be given to the
  59. parser by calling the $p-><CODE>parse()</CODE> or $p-><CODE>parse_file()</CODE> methods.</P>
  60. <DL>
  61. <DT><STRONG><A NAME="item_new">$p = HTML::LinkExtor->new([$callback[, $base]])</A></STRONG><BR>
  62. <DD>
  63. The constructor takes two optional argument. The first is a reference
  64. to a callback routine. It will be called as links are found. If a
  65. callback is not provided, then links are just accumulated internally
  66. and can be retrieved by calling the $p-><A HREF="#item_links"><CODE>links()</CODE></A> method.
  67. <P>The $base is an optional base URL used to absolutize all URLs found.
  68. You need to have the <EM>URI::URL</EM> module installed if you provide
  69. $base.</P>
  70. <P>The callback is called with the lowercase tag name as first argument,
  71. and then all link attributes as separate key/value pairs.  All
  72. non-link attributes are removed.</P>
  73. <P></P>
  74. <DT><STRONG><A NAME="item_links">$p->links</A></STRONG><BR>
  75. <DD>
  76. Returns a list of all links found in the document.  The returned
  77. values will be anonymous arrays with the follwing elements:
  78. <PRE>
  79.   [$tag, $attr => $url1, $attr2 => $url2,...]</PRE>
  80. <P>The $p->links method will also truncate the internal link list.  This
  81. means that if the method is called twice without any parsing in
  82. between then the second call will return an empty list.</P>
  83. <P>Also note that $p->links will always be empty if a callback routine
  84. was provided when the <EM>HTML::LinkExtor</EM> was created.</P>
  85. <P></P></DL>
  86. <P>
  87. <HR>
  88. <H1><A NAME="example">EXAMPLE</A></H1>
  89. <P>This is an example showing how you can extract links from a document
  90. received using LWP:</P>
  91. <PRE>
  92.   use LWP::UserAgent;
  93.   use HTML::LinkExtor;
  94.   use URI::URL;</PRE>
  95. <PRE>
  96.   $url = "<A HREF="http://www.sn.no/"">http://www.sn.no/"</A>;;  # for instance
  97.   $ua = new LWP::UserAgent;</PRE>
  98. <PRE>
  99.   # Set up a callback that collect image links
  100.   my @imgs = ();
  101.   sub callback {
  102.      my($tag, %attr) = @_;
  103.      return if $tag ne 'img';  # we only look closer at <img ...>
  104.      push(@imgs, values %attr);
  105.   }</PRE>
  106. <PRE>
  107.   # Make the parser.  Unfortunately, we don't know the base yet
  108.   # (it might be diffent from $url)
  109.   $p = HTML::LinkExtor->new(\&callback);</PRE>
  110. <PRE>
  111.   # Request document and parse it as it arrives
  112.   $res = $ua->request(HTTP::Request->new(GET => $url),
  113.                       sub {$p->parse($_[0])});</PRE>
  114. <PRE>
  115.   # Expand all image URLs to absolute ones
  116.   my $base = $res->base;
  117.   @imgs = map { $_ = url($_, $base)->abs; } @imgs;</PRE>
  118. <PRE>
  119.   # Print them out
  120.   print join("\n", @imgs), "\n";</PRE>
  121. <P>
  122. <HR>
  123. <H1><A NAME="see also">SEE ALSO</A></H1>
  124. <P><A HREF="../../../site/lib/HTML/Parser.html">the HTML::Parser manpage</A>, <A HREF="../../../site/lib/LWP.html">the LWP manpage</A>, <A HREF="../../../site/lib/URI/URL.html">the URI::URL manpage</A></P>
  125. <P>
  126. <HR>
  127. <H1><A NAME="copyright">COPYRIGHT</A></H1>
  128. <P>Copyright 1996-1998 Gisle Aas.</P>
  129. <P>This library is free software; you can redistribute it and/or
  130. modify it under the same terms as Perl itself.</P>
  131. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  132. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  133. <STRONG><P CLASS=block> HTML::LinkExtor - Extract links from an HTML document</P></STRONG>
  134. </TD></TR>
  135. </TABLE>
  136.  
  137. </BODY>
  138.  
  139. </HTML>
  140.