perl - 我怎样才能让 perl grep 执行正则表达式捕获

Question

我试图通过在下面的代码中获取 (.*) 的内容，使用带有 grep 的正则表达式捕获来捕获子字符串。

            @substring = grep /^test-results(.*)/,@$(array_reference);

这不起作用......

Answer 1

在列表上下文中，正则表达式匹配返回其捕获匹配的列表，因此您只需要:

@substrings = map /^test-results(.*)/, @$array;