Perl正则表达式匹配字符串，不消耗字符

Question

如何在中间提取字符串但不消耗字符

字符串：

abc123
def456
ghi789

我正在使用下面的正则表达式，它返回123到789之间的字符串：

/123(.*?)789/s

我想要提取的是：

123
def456
ghi789

Answer 1

捕获的parens应该放在你想捕获的周围，所以替换

/123(.*?)789/s

与

/(123.*?789)/s

现在，123和789将按要求包含在捕获的文本中。