Perl Mechanize查找Div内的所有链接

Question

有没有办法通过使用Mechanize查找特定div中的所有链接？

我试图使用find_all_links但无法找到解决这个问题的方法.例如,

<div class="sometag">
<ul class"tags">
<li><a href="/a.html">A</a></li>
<li><a href="/b.html">B</a></li> 
</ul>
</div>

Answer 1

从HTML文件中获取有用信息的有用工具是HTML :: Grabber.它使用jQuery样式的语法来引用HTML中的元素,因此您可能会执行以下操作:

use HTML::Grabber;

# Your mechanize stuff here ...

my $dom = HTML::Grabber->new( html => $mech->content );

my @links;
$dom->find('div.sometag a')->each(sub {
    push @links, $_->attr('href');
});