在perl中查找正则表达式匹配的所有可能的起始位置,包括重叠匹配？

有没有办法在perl中找到正则表达式匹配的所有可能的起始位置？

例如,如果你的正则表达式是“aa”而文本是“aaaa”,它将返回0,1和2,而不是0和2.

显然,你可以做一些事情,比如返回第一个匹配,然后删除所有字符,包括起始字符,并执行另一个搜索,但我希望有更高效的东西.

解决方法

使用前瞻：

$perl -le 'print $-[0] while "aaaa" =~ /a(?=a)/g'

通常,将除正则表达式的第一个字符之外的所有内容放在(？= …)中.