Re^2: anchor text match


Do you know where your variables are?
	PerlMonks

Re^2: anchor text match

by Anonymous Monk

on Dec 27, 2009 at 19:28 UTC ( [id://814542]=note: print w/replies, xml )

Need Help??

in reply to Re: anchor text match
in thread anchor text match

like this

#!/usr/bin/perl --

use strict;
use warnings;
use HTML::TreeBuilder;

my $html = <<'__HTML__';
<a href="http://www.yahoo.com" target=_blank><img
src="http://us.i1.yimg.com/nw.gif" 
alt="Open this result in new window"></a>
<a href="http://www.yahoo.com" target=_blank><img
src="http://us.i1.yimg.com/nw.gif" 
alt="Two clues"><img
src="http://us.i1.yimg.com/nw.gif" 
alt="for the price of one"></a>
__HTML__


{
  my $h = HTML::TreeBuilder->new_from_content($html);

  for my $link ( $h->look_down( _tag => q{a}, href => 'http://www.yaho
+o.com' ) )
  {
    print $link->attr('href'),"\n";
    my $text = $link->as_trimmed_text;
    unless ($text) {
      $text = join ' ',
        map { $_->attr('alt') } $link->look_down( alt => qr/^.+$/ );
    }
    print "$text\n\n";
  } ## end for my $link ( $h->look_down...)

}

__END__
http://www.yahoo.com
Open this result in new window

http://www.yahoo.com
Two clues for the price of one
[download]

Comment on Re^2: anchor text match Download Code

Replies are listed 'Best First'.

Re^3: anchor text match
by kumar801012 (Initiate) on Dec 28, 2009 at 22:28 UTC

my $html = <<'__HTML__';
<a href="http://www.yahoo.com" target=_blank><img
src="http://us.i1.yimg.com/nw.gif" 
alt="Open this result in new window">ANCHOR TEXT MATCH</a>
<a href="http://www.yahoo.com" target=_blank><img
src="http://us.i1.yimg.com/nw.gif" 
alt="Two clues"><img
src="http://us.i1.yimg.com/nw.gif" 
alt="for the price of one"></a>
__HTML__
[download]

http://www.yahoo.com ANCHOR TEXT MATCH

http://www.yahoo.com IMAGE (indicating there is no anchor text but there is an <img> tag within anchor tag)

[reply]
[d/l]

In Section Seekers of Perl Wisdom