如何使用Perl的WWW :: Mechanize從頁面中提取所有鏈接（不包括一個鏈接）？

Question

我試圖使用WWW :: Mechanize使用find_all_links()方法從HTML頁面提取一些鏈接。 它支持根據以下條件進行匹配：

• 文本
• text_regex
• 網址
• url_regex
• url_abs
• url_abs_regex
  ...

我如何提取除具有文本“ xyz”的鏈接以外的所有鏈接？

Answer 1

您可以使用'text_regex'條件：

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

有關否定的前瞻性斷言的更多信息，請參見perldoc perlre 。

Answer 2

為什么不獲取所有鏈接，然后使用'grep'跳過不需要的鏈接？