Как я могу сделать глобальное совпадение регулярного выражения в Perl?
Я пытаюсь придумать регулярное выражение в Perl, совпадающее с несколькими шаблонами и возвращающее их все какpreg_match_all
в PHP делает.
Вот что у меня есть:
$str = 'testdatastring';
if($str =~ /(test|data|string)/) {
print "its found index location: $0 $-[0]-$+[0]\n";
print "its found index location: $1 $-[1]-$+[1]\n";
print "its found index location: $2 $-[2]-$+[2]\n";
print "its found index location: $3 $-[3]-$+[3]\n";
}
Это только дает мне первый матч, который в этом «тест». Я хочу иметь возможность сопоставлять все вхождения указанных шаблонов: «тест», «данные» и «строка».
Я знаю, что в PHP вы можете использовать preg_match_all для таких целей:
if(preg_match_all('/(test|data|string)/', 'testdatastring', $m)) {
echo var_export($m, true);
}
Приведенный выше код PHP будет соответствовать всем 3 строкам: «test», «data» и «string».
Я хочу знать, как это сделать в Perl. Любая помощь будет принята с благодарностью.