[Moscow.pm] Регулярник без /e

[Oleg Alexeenkov]

Здравствуйте, Vladimir.

Вы писали 24 октября 2008 г., 16:44:55:

> On Friday 24 October 2008 16:39:10 Vladimir V. Perepelitsa wrote:
>> из меня хреновый регэкспописатель, но типа работает:
>> s{^([^;\n]+);?([^;\n]+)?;?([^;\n]+)?;?([^;\n]+)?;?([^;\n]+)?.*?$}{$1;$5;$4;
>> $2}mg;
>>
>> Че-то сейчас туплю и не могу сообразить как убрать повторяющийся паттерн

> как вариант:

> my $ptrn = join ';?', ('([^;\n]+)?')x5;
> s{^$ptrn.*?$}{$1;$5;$4;$2}mg;

  s{^@{[join ';?', ('([^;\n]+)?')x5]}.*?$}{$1;$5;$4;$2}mg;



-- 
С уважением,
 Oleg                          mailto:proler на gmail.com