толи лыжи не едут толи не пойму:<br><br>$ perl -MData::Dumper -e 'print Dumper(qr/^(abc|def)$/)' <br>$VAR1 = qr/(?-xism:^(abc|def)$)/;<br><br>$ perl -MData::Dumper -e 'print Dumper(eval q{qr/(?-xism:^(abc|def)$)/})'<br>
$VAR1 = qr/(?-xism:(?-xism:^(abc|def)$))/;<br><br>причем это по ходу дела не Data::Dumper виноват, а перловый eval так делает:<br><br>$ perl -e 'print eval q{qr/(?-xism:^(abc|def)$)/}' <br>(?-xism:(?-xism:^(abc|def)$))<br>
<br>и соответственно если взять некий объект, который содержит регулярное выражение, сериализовать его, затем десериализовать и потом опять сериализовать, то соответствия двух сериализованных значений мы не получим.<br>