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

[Vladimir V. Perepelitsa]

On Friday 24 October 2008 17:04:21 Dmitry E. Oboukhov wrote:
> VVP> как вариант:
>
> VVP> my $ptrn = join ';?', ('([^;\n]+)?')x5;
> VVP> s{^$ptrn.*?$}{$1;$5;$4;$2}mg;
>
> а ну если паттерны все ручками описать то да, но это длинно (в задаче в
> общем виде иногда надо и $9)

ну в этом варианте меняем x5 на x9

> объеденить бы как-то
> а то и так неизящно и так не красиво :(

жаль, что у нас нет чего-то типа ()*
точнее оно есть, но сохраняется только последнее значение.


-- 
Vladimir Perepelitsa aka Mons Anderson
<inthrax на gmail.com> / #99779956