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

[Dmitry E. Oboukhov]

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

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

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

а ну если паттерны все ручками описать то да, но это длинно (в задаче в
общем виде иногда надо и $9)

объеденить бы как-то
а то и так неизящно и так не красиво :(
--
... mpd playing: WASP - 95 Nasty

. ''`.                               Dmitry E. Oboukhov
: :’  :   email: unera на debian.org jabber://UNera@uvw.ru
`. `~’              GPGKey: 1024D / F8E26537 2006-11-21
  `- 1B23 D4F8 8EC0 D902 0555  E438 AB8C 00CF F8E2 6537
----------- следущая часть -----------
A non-text attachment was scrubbed...
Name: отсутствует
Type: application/pgp-signature
Size: 197 bytes
Desc: Digital signature
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20081024/2275e5dc/attachment-0001.bin>