anchor text match

kumar801012 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: anchor text match by JadeNB (Chaplain) on Dec 27, 2009 at 21:06 UTC
As Anonymonk points out, the answer to “Is there a good way to parse `$nested_format` with a regex?” is (almost always) no. You say you've tried some members of the `HTML::` family of modules; if you show the code you came up with in your attempts, then it'll be a lot easier to see how to adapt it for your needs.	[reply] [d/l] [select]
Re^2: anchor text match by kumar801012 (Initiate) on Dec 30, 2009 at 17:35 UTC
I have tried LinkExtractor, TokenParser, Mechanize, TreeBuilder modules. For below html: a href="http://www.yahoo.com" target=_blank><img src=http://us.i1.yimg.com/nw.gif height=11 width=11 border=0 alt="Open this result in new window"> </anchor> all of them give "Open this result in new window" as the anchor text. Ideally I would like to see blank value or a string like "image" returned so that I know there was no anchor text but the href still matched the target url(http://www.yahoo.com in this case). Is there a way to tweak those modules to get the desired result? Thanks,	[reply]
Re^3: anchor text match by ww (Archbishop) on Dec 30, 2009 at 19:21 UTC
"I have tried...." is as uninformative as a classic error-in-posting, namely: "...doesn't work." Try showing us what you've tried (minimal cases which fail, please).	[reply]
Re^4: anchor text match by kumar801012 (Initiate) on Dec 30, 2009 at 20:57 UTC
Re^5: anchor text match by JadeNB (Chaplain) on Dec 30, 2009 at 21:08 UTC
Some notes below your chosen depth have not been shown here
Re: anchor text match by Anonymous Monk on Dec 27, 2009 at 19:14 UTC
I was wondering if any one can help me out with a regexp to parse all the Keep on using the HTML:: modules, no need to invent a regex	[reply]
Re^2: anchor text match by Anonymous Monk on Dec 27, 2009 at 19:28 UTC
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]	[reply] [d/l]
Re^3: anchor text match by kumar801012 (Initiate) on Dec 28, 2009 at 22:28 UTC
Thanks for the code. But, for the given HTML: `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] Desired result for http://www.yahoo.com as target url is: http://www.yahoo.com ANCHOR TEXT MATCH http://www.yahoo.com IMAGE (indicating there is no anchor text but there is an tag within anchor tag) Thanks,	[reply] [d/l]