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

Question

$string =~ /(pattern)/g;

我知道我可以在$1中获得匹配结果，但是如何获得所有（/g）并将每个结果推送到数组中？

Answer 1

这是你的意思吗？

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

这将产生以下输出：

pattern pattern