толи лыжи не едут толи не пойму:
$ 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)$))
и соответственно если взять некий объект, который содержит регулярное
выражение, сериализовать его, затем десериализовать и потом опять
сериализовать, то соответствия двух сериализованных значений мы не получим.
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
