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

[Vladimir V. Perepelitsa]

On Friday 24 October 2008 22:42:49 Oleg Alexeenkov wrote:
> Здравствуйте, 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;

так даже лучше :)

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