Как я могу сделать глобальное совпадение регулярного выражения в Perl? - PullRequest
Новая
       14

Как я могу сделать глобальное совпадение регулярного выражения в Perl?

1 голос
/ 04 июня 2009

Я пытаюсь найти регулярное выражение в 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";
}

Это дает мне только первый матч, который в этом тесте. Я хочу иметь возможность сопоставлять все вхождения указанных шаблонов: 'test', 'data' и 'string'.

Я знаю, что в PHP вы можете использовать preg_match_all для таких целей: 

if(preg_match_all('/(test|data|string)/', 'testdatastring', $m)) {
        echo var_export($m, true);
}

Приведенный выше код PHP будет соответствовать всем 3 строкам: 'test', 'data' и 'string'.

Я хочу знать, как это сделать в Perl. Любая помощь будет принята с благодарностью.

Ответы [ 2 ]

11 голосов
/ 04 июня 2009

Perl эквивалентен 

preg_match_all('/(test|data|string)/', 'testdatastring', $m)

есть 

@m = ("testdatastring" =~ m/(test|data|string)/g);

Флаг / g обозначает глобальный, поэтому он возвращает список совпадений в контексте списка.

2 голосов
/ 04 июня 2009

См. http://www.anaesthetist.com/mnm/perl/regex.htm. Основной синтаксис (оттуда): 

$_ = "alpha xbetay xgammay xdeltay so on";
($first, $second, $third) = /x(.+?)y/g;

Обратите внимание на / г

...