In Perl, how do I deeply compare data structures serialized to JSON format?

Question

I have two data structures in JSON format. They are deeply nested hashes. How can I deeply compare these structures?

And you should have tried something... – Zaid Apr 15 '13 at 07:49 — Zaid, Apr 15 '13 at 07:49

score 3 · Answer 1 · edited Apr 15 '13 at 11:56

3

You can decode the JSON using JSON which just uses JSON::XS if it is installed on your system.

use JSON;
use Data::Compare;

my $h1 = JSON->new->utf8->decode($perl_scalar1);
my $h2 = JSON->new->utf8->decode($perl_scalar2);
my $c = Data::Compare->new($h1, $h2);
print 'structures of $h1 and $h are ',
$c->Cmp ? "" : "not ", "identical.\n";

edited Apr 15 '13 at 11:56

Sinan Ünür

116,958
15
196
339

answered Apr 15 '13 at 06:37

If you're going to `encode` the data, then you might as well just use `eq` instead of Data::Compare. – Quentin Apr 15 '13 at 06:55
what should be in the " " after $c->Cmp ? – user2260554 Apr 15 '13 at 06:58
3

The OP has two JSON strings, you need to decode them to Perl data structures. – Zaid Apr 15 '13 at 07:29
`eq` can't be used as field order not guaranteed. – Demiurg Apr 12 '23 at 17:19

In Perl, how do I deeply compare data structures serialized to JSON format?

1 Answers1