如何使用Perl的WWW :: Mechanize从页面中提取所有链接（不包括一个链接）？

Question

I'm trying to use WWW::Mechanize to extract some links from the HTML page using find_all_links() method. It supports matching on these criterias:

• text
• text_regex
• url
• url_regex
• url_abs
• url_abs_regex
  ...

How can I extract all links except one that has text "xyz"?

Answer 1

You can use the 'text_regex' criteria:

$mech->find_all_links(text_regex => qr/^(?!xyz$).*$/);

See perldoc perlre for more on negative look-ahead assertion.

Answer 2

为什么不获取所有链接，然后使用'grep'跳过不需要的链接？