[Moscow.pm] сериализация регулярных выражений

[Ivan Petrov]

толи лыжи не едут толи не пойму:

$ perl -MData::Dumper -e 'print Dumper(qr/^(abc|def)$/)'
$VAR1 = qr/(?-xism:^(abc|def)$)/;

$ perl -MData::Dumper -e 'print Dumper(eval q{qr/(?-xism:^(abc|def)$)/})'
$VAR1 = qr/(?-xism:(?-xism:^(abc|def)$))/;

причем это по ходу дела не Data::Dumper виноват, а перловый eval так делает:

$ perl  -e 'print eval q{qr/(?-xism:^(abc|def)$)/}'
(?-xism:(?-xism:^(abc|def)$))

и соответственно если взять некий объект, который содержит регулярное
выражение, сериализовать его, затем десериализовать и потом опять
сериализовать, то соответствия двух сериализованных значений мы не получим.
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20110128/0ba79df3/attachment.html>