如何使用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'跳過那些你不需要的？