regex - 在 perl 中，我如何获得所有匹配的结果/g？

Question

$string =~ /(pattern)/g;

我知道我可以在$1中得到匹配结果，但是我怎样才能得到all (/g)并将每个结果插入数组？

Answer 1

你是这个意思吗？

$string = 'patternpattern';
@matches_array = $string =~ /(pattern)/g;
print "@matches_array";

这将产生以下输出:

pattern pattern