Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: JSON saving regex?

by thargas (Deacon)
on Jan 27, 2012 at 13:16 UTC ( #950357=note: print w/ replies, xml ) Need Help??


in reply to JSON saving regex?

The problem is that qr/.../ produces a Regexp object (try ref(qr/.../)).

If you know where all the regexes are in your structure, you could convert them all to strings before calling to_json() on them.

Or you can do:
{ package Regexp; sub TO_JSON { my $regex = shift; $regex = "$regex"; return $regex; } my $json = JSON->new->convert_blessed; print $json->encode(qr/.../);
as documented in JSON


Comment on Re: JSON saving regex?
Select or Download Code
Replies are listed 'Best First'.
Re^2: JSON saving regex?
by The Perlman (Beadle) on Jan 27, 2012 at 21:09 UTC
    Excellent!

    Thanks for showing that this solution exists.

    (I hoped it would, but was too lazy to look it up :)

    Just one remark: I hope the OP doesn't expect that those RegExes always work in other languages than Perl.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://950357]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (9)
As of 2015-07-29 02:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (260 votes), past polls