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

[Vladimir V. Perepelitsa]

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;

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