Группа регулярных выражений в Perl: как захватить элементы в массив из группы регулярных выражений, которая соответствует неизвестному числу / многократных / переменных вхождений из строки?

Question

Группа регулярных выражений в Perl: как захватить элементы в массив из группы регулярных выражений, которая соответствует неизвестному числу / многократных / переменных вхождений из строки?

В Perl, как я могу использовать одну группу регулярных выражений для захвата нескольких совпадений в несколько элементов массива?

Например, для строки:

var1=100 var2=90 var5=hello var3="a, b, c" var7=test var3=hello

обработать это с кодом:

$string = "var1=100 var2=90 var5=hello var3=\"a, b, c\" var7=test var3=hello";

my @array = $string =~ <regular expression here>

for ( my $i = 0; $i < scalar( @array ); $i++ )
{
  print $i.": ".$array[$i]."\n";
}

Я хотел бы видеть в качестве вывода:

0: var1=100
1: var2=90
2: var5=hello
3: var3="a, b, c"
4: var7=test
5: var3=hello

Что бы я использовал в качестве регулярного выражения?

Общность между вещами, которые я хочу сопоставить, - это шаблон строки присваивания, так что-то вроде:

my @array = $string =~ m/(\w+=[\w\"\,\s]+)*/;

Где * указывает на одно или несколько вхождений, соответствующих группе.

(Я отказался от использования split(), так как некоторые совпадения содержат пробелы внутри себя (то есть var3...) и поэтому не дают желаемых результатов.)

С помощью приведенного выше регулярного выражения я получаю только:

0: var1=100 var2

Возможно ли это в регулярном выражении? Или требуется дополнительный код?

Посмотрел уже существующие ответы при поиске "perl regex множественная группа", но не достаточно подсказок:

53

regex perl match grouping

Источник

user227926 11 авг '10 в 14:59

9 ответов

Решение

В регулярных выражениях используйте технику, которую я люблю называть tack-and-stretch: привязка к функциям, которые, как вы знаете, будут там (tack), а затем захватывает то, что между (растяжение).

В этом случае вы знаете, что соответствует одно назначение

\b\w+=.+

и у вас есть много таких повторений в $string, Помни что \b означает границу слова:

Граница слова (\b) это место между двумя персонажами, которое имеет \w на одной стороне этого и \W с другой стороны (в любом порядке), считая воображаемые символы в начале и конце строки как соответствующие \W,

Значения в присваиваниях может быть немного сложнее описать с помощью регулярного выражения, но вы также знаете, что каждое значение будет оканчиваться пробелом - хотя не обязательно первым пробелом, встреченным! - после другого присваивания или конца строки.

Чтобы избежать повторения шаблона утверждения, скомпилируйте его один раз с qr// и повторно использовать его в своем шаблоне вместе с прогнозным утверждением (?=...) растянуть совпадение достаточно далеко, чтобы захватить все значение, а также предотвратить его перетекание в следующее имя переменной.

Соответствие вашему шаблону в контексте списка с m//g дает следующее поведение:

/g Модификатор определяет глобальное сопоставление с образцом, то есть сопоставление максимально возможного количества раз в строке. Как это ведет себя, зависит от контекста. В контексте списка он возвращает список подстрок, сопоставленных с любыми захватывающими скобками в регулярном выражении. Если круглых скобок нет, возвращается список всех совпадающих строк, как если бы вокруг всего шаблона были круглые скобки.

Шаблон $assignment использует не жадный .+? обрезать значение, как только упреждающий просмотр видит другое назначение или конец строки. Помните, что сопоставление возвращает подстроки из всех поднаборов захвата, поэтому в альтернативном прогнозе используется не захватывание (?:...), qr// напротив, содержит неявные захватывающие скобки.

#! /usr/bin/perl

use warnings;
use strict;

my $string = <<'EOF';
var1=100 var2=90 var5=hello var3="a, b, c" var7=test var3=hello
EOF

my $assignment = qr/\b\w+ = .+?/x;
my @array = $string =~ /$assignment (?= \s+ (?: $ | $assignment))/gx;

for ( my $i = 0; $i < scalar( @array ); $i++ )
{
  print $i.": ".$array[$i]."\n";
}

Выход:

 0: var1 = 100
1: var2 = 90
2: var5 = привет
3: var3="a, b, c"
4: var7= тест
5: var3= привет

11

Источник

user123109 12 авг '10 в 13:01

Я не говорю, что это то, что вы должны делать, но вы пытаетесь написать грамматику. Теперь ваш пример очень прост для грамматики, но модуль Дамиана Конвея Regexp:: Grammars действительно хорош в этом. Если вам вообще понадобится вырастить это, вы обнаружите, что это значительно облегчит вашу жизнь. Я использую это довольно немного здесь - это своего рода perl6-иш.

use Regexp::Grammars;
use Data::Dumper;
use strict;
use warnings;

my $parser = qr{
    <[pair]>+
    <rule: pair>     <key>=(?:"<list>"|<value=literal>)
    <token: key>     var\d+
    <rule: list>     <[MATCH=literal]> ** (,)
    <token: literal> \S+

}xms;

q[var1=100 var2=90 var5=hello var3="a, b, c" var7=test var3=hello] =~ $parser;
die Dumper {%/};

Выход:

$VAR1 = {
          '' => 'var1=100 var2=90 var5=hello var3="a, b, c" var7=test var3=hello',
          'pair' => [
                      {
                        '' => 'var1=100',
                        'value' => '100',
                        'key' => 'var1'
                      },
                      {
                        '' => 'var2=90',
                        'value' => '90',
                        'key' => 'var2'
                      },
                      {
                        '' => 'var5=hello',
                        'value' => 'hello',
                        'key' => 'var5'
                      },
                      {
                        '' => 'var3="a, b, c"',
                        'key' => 'var3',
                        'list' => [
                                    'a',
                                    'b',
                                    'c'
                                  ]
                      },
                      {
                        '' => 'var7=test',
                        'value' => 'test',
                        'key' => 'var7'
                      },
                      {
                        '' => 'var3=hello',
                        'value' => 'hello',
                        'key' => 'var3'
                      }
                    ]

8

Источник

user124486 11 авг '10 в 21:52

Может быть, немного чрезмерно, но оправдание для меня, чтобы заглянуть в http://p3rl.org/Parse::RecDescent. Как насчет создания парсера?

#!/usr/bin/perl

use strict;
use warnings;

use Parse::RecDescent;

use Regexp::Common;

my $grammar = <<'_EOGRAMMAR_'
INTEGER: /[-+]?\d+/
STRING: /\S+/
QSTRING: /$Regexp::Common::RE{quoted}/

VARIABLE: /var\d+/
VALUE: ( QSTRING | STRING | INTEGER )

assignment: VARIABLE "=" VALUE /[\s]*/ { print "$item{VARIABLE} => $item{VALUE}\n"; }

startrule: assignment(s)
_EOGRAMMAR_
;

$Parse::RecDescent::skip = '';
my $parser = Parse::RecDescent->new($grammar);

my $code = q{var1=100 var2=90 var5=hello var3="a, b, c" var7=test var8=" haha \" heh " var3=hello};
$parser->startrule($code);

выходы:

var1 => 100
var2 => 90
var5 => hello
var3 => "a, b, c"
var7 => test
var8 => " haha \" heh "
var3 => hello

PS. Обратите внимание на двойную переменную var3: если вы хотите, чтобы последнее присвоение перезаписывало первое, вы можете использовать хеш для хранения значений, а затем использовать их позже.

PPS. Моей первой мыслью было разделение на '=', но это не сработало бы, если бы строка содержала '=', и так как регулярные выражения почти всегда плохи для разбора, я в конечном итоге попробовал это, и это работает.

Редактировать: Добавлена поддержка экранированных кавычек внутри строк в кавычках.

5

Источник

user412175 11 авг '10 в 16:47

Я недавно должен был проанализировать x509 сертификаты "Тематические" строки. Они имели форму, аналогичную той, которую вы предоставили:

echo 'Subject: C=HU, L=Budapest, O=Microsec Ltd., CN=Microsec e-Szigno Root CA 2009/emailAddress=info@e-szigno.hu' | \
  perl -wne 'my @a = m/(\w+\=.+?)(?=(?:, \w+\=|$))/g; print "$_\n" foreach @a;'

C=HU
L=Budapest
O=Microsec Ltd.
CN=Microsec e-Szigno Root CA 2009/emailAddress=info@e-szigno.hu

Краткое описание регулярного выражения:

(\w+\=.+?) - захватывать слова, за которыми следует '=' и любые последующие символы в не жадном режиме
(?=(?:, \w+\=|$)) - которые следуют либо другой , KEY=val или конец строки.

Интересная часть используемого регулярного выражения:

.+? - Не жадный режим
(?:pattern) - Режим без захвата
(?=pattern) положительное прогнозное утверждение нулевой ширины

3

Источник

user1227975 23 фев '12 в 10:14

Вы запросили решение RegEx или другой код. Вот (в основном) решение без регулярных выражений, использующее только основные модули. Единственное регулярное выражение \s+ определить разделитель; в этом случае один или несколько пробелов.

use strict; use warnings;
use Text::ParseWords;
my $string="var1=100 var2=90 var5=hello var3=\"a, b, c\" var7=test var3=hello";  

my @array = quotewords('\s+', 0, $string);

for ( my $i = 0; $i < scalar( @array ); $i++ )
{
    print $i.": ".$array[$i]."\n";
}

Или вы можете выполнить код ЗДЕСЬ

Выход:

0: var1=100
1: var2=90
2: var5=hello
3: var3=a, b, c
4: var7=test
5: var3=hello

Если вам действительно нужно решение для регулярных выражений, комментарий Алана Мура, ссылающийся на его код на IDEone, - это газ!

2

Источник

user298607 12 авг '10 в 00:57

#!/usr/bin/perl

use strict; use warnings;

use Text::ParseWords;
use YAML;

my $string =
    "var1=100 var2=90 var5=hello var3=\"a, b, c\" var7=test var3=hello";

my @parts = shellwords $string;
print Dump \@parts;

@parts = map { { split /=/ } } @parts;

print Dump \@parts;

2

Источник

user100754 11 авг '10 в 21:07

Этот также обеспечит вам обычное экранирование в двойных кавычках, например, var3="a, \"b, c".

@a = /(\w+=(?:\w+|"(?:[^\\"]*(?:\\.[^\\"]*)*)*"))/g;

В бою:

echo 'var1=100 var2=90 var42="foo\"bar\\" var5=hello var3="a, b, c" var7=test var3=hello' |
perl -nle '@a = /(\w+=(?:\w+|"(?:[^\\"]*(?:\\.[^\\"]*)*)*"))/g; $,=","; print @a'
var1=100,var2=90,var42="foo\"bar\\",var5=hello,var3="a, b, c",var7=test,var3=hello

2

Источник

user49197 11 авг '10 в 17:18

Это можно сделать с помощью регулярных выражений, однако это хрупко.

my $string = "var1=100 var2=90 var5=hello var3=\"a, b, c\" var7=test var3=hello";

my $regexp = qr/( (?:\w+=[\w\,]+) | (?:\w+=\"[^\"]*\") )/x;
my @matches = $string =~ /$regexp/g;

0

Источник

user415428 11 авг '10 в 15:44

Другие вопросы по тегам regex perl match grouping

user12523 11 авг '10 в 15:37 2010-08-11 15:37 · Accepted Answer · 2010-08-11 15:37

my $string = "var1=100 var2=90 var5=hello var3=\"a, b, c\" var7=test var3=hello";

while($string =~ /(?:^|\s+)(\S+)\s*=\s*("[^"]*"|\S*)/g) {
        print "<$1> => <$2>\n";
}

Печать:

<var1> => <100>
<var2> => <90>
<var5> => <hello>
<var3> => <"a, b, c">
<var7> => <test>
<var3> => <hello>

Объяснение:

Последний кусок первый: g Флаг в конце означает, что вы можете применить регулярное выражение к строке несколько раз. Во второй раз он продолжит сопоставление, где последнее совпадение закончилось в строке.

Теперь для регулярного выражения: (?:^|\s+) соответствует либо началу строки, либо группе из одного или нескольких пробелов. Это необходимо, чтобы при следующем применении регулярного выражения мы пропускали пробелы между парами ключ / значение. ?: означает, что содержимое скобок не будет записано как группа (нам не нужны пробелы, только ключ и значение). \S+ соответствует имени переменной. Затем мы пропускаем любое количество пробелов и знак равенства между ними. В заключение, ("[^"]*"|\S*)/ соответствует либо двум кавычкам с любым количеством символов между ними, либо любому количеству непробельных символов для значения. Обратите внимание, что сопоставление цитат довольно хрупкое и не будет правильно обрабатывать экранированные кавычки, например "\"quoted\"" приведет к "\",

РЕДАКТИРОВАТЬ:

Поскольку вы действительно хотите получить все назначение, а не отдельные ключи / значения, вот одна строка, которая извлекает их:

my @list = $string =~ /(?:^|\s+)((?:\S+)\s*=\s*(?:"[^"]*"|\S*))/g;