В Perl, как я могу получить все соответствующие результаты / г?

Question

$string =~ /(pattern)/g;

Я знаю, что могу получить соответствующий результат в $1, но как мне получить all (/g) и поместить каждый результат в массив?

Answer 1

Это то, что вы имеете в виду?

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

Это даст следующий результат:

pattern pattern