regex – Perl遍历每个匹配

让我们说，我扫描一个页面的原始HTML寻找这个正则表达式。 (末尾的引号是故意的)。

m/(https?:\/\/.*?(?:'|"))/

这种模式可能匹配〜100次。什么是常见的perl惯用法/一种快速的方法来迭代所有捕获组匹配的列表？

解决方法

从 perlretut(一个非常精细的教程)

while ($x =~ /(\w+)/g) {
        print "Word is $1,ends at position ",pos $x,"\n";
    }

你可以使用while和g修饰符迭代所有匹配，$ 1你获得捕获组1的内容，在这个例子中，你也得到了pos的位置。