Re: JSON saving regex?

[thargas]

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

[The Perlman]

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.