Perl HTML:TreeBuilder标记不等于

Question

我使用HTML::TreeBuilder从html文件中提取数据。我需要做的是：

$div->look_down(_tag => 'a', 'href' !=> 'index.html')

因此，我正在搜索一个不等于"index.html"的href和另一个标记，但显然!=>不是HTML::TreeBuilder的合适命令。我怎样才能取得这样的成就？我可以使用正则表达式吗？

BR

Answer 1

没有"不相等"，但您可以使用一个正则表达式来匹配除该字符串之外的任何字符串，比如这个

$div->look_down( _tag => 'a', href => qr/A(?!index.htmlz)/i )

或者你可以写一个子程序，使检查

$div->look_down( _tag => 'a', sub { lc $_[0]->attr('href') ne 'index.html' } )