html - 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');
});