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

Question

$string =~ /(pattern)/g;

我知道我可以得到匹配的结果$1,但是如何获得all(/g)并将每个结果推送到数组中？

Answer 1

你是这个意思吗？

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

这将产生以下输出:

pattern pattern