在perl中，我如何得到所有匹配結果/ g？

Question

$string =~ /(pattern)/g; 

我知道我可以在$1得到匹配的結果，但我怎麼能得到所有（/g），推動每個結果到一個數組？

Answer 1

這是你的意思嗎？

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

這將產生以下的輸出：

pattern pattern