Perl LWP 在页面中查找包含特定单词的链接

Question

我真的被困住了。 我正在使用 LWP。 我希望将 HTML 文档中的特定链接推送到数组中。 但是：

while ($edocument =~ m/href\s*=\s*"([^"\s]+)"/gi) {
#dostuff
}

将处理所有链接。 我只想要 url 中包含“test”一词的链接。

我尝试过各种组合，比如。 （太多尝试列出）

  while ($edocument =~ m/href\s*=\s*"([^"\s*test*]+)"/gi) {

我一直在阅读和阅读，对于这种尴尬的情况，我真的需要一个线索。

有人可以帮忙吗？

此外，我也只需要匹配每个$edocument 的单词 test。有点像last 我猜是循环。

也尝试过

@links = $edocument =~ m/<a[^>]+href\s*=\s*["']?([^"'> ]+)/ig;

然后通过一个独特的 sub 运行 @links。但是，仍然只需要带有“测试”一词的链接。

Answer 1

下面的正则表达式呢：

while ($edocument =~ m/href\s*=\s*"([^"\s]+test[^"\s]+)"/gi) { #dostuff }

这个正则表达式只匹配带有子字符串 test 的 url。