JSON Regex ausgeben (gelöst) - #171677 (Fragen zu Perl-Modulen)

Gast wer

2013-10-30 20:07

Warum nicht wandeln:

Code (perl): (dl )

my $reg = qr/[^a-z]/i;
$reg=~s!\(\?\^([^:]+):(.+)\)$!/$2/$1!;
my %var = (reg => $reg);
my $json = JSON->new->latin1->encode(\%var);

und dann durch eval:

Code: (dl )

1
2

var v = {'reg':'/[^a-z]/i'};
reg = eval(v['reg']);

Last edited: 2013-10-30 20:35:08 +0100 (CET)