在Perl中，如何深度比较序列化为JSON格式的数据结构？

Question

我有两种JSON格式的数据结构。它们是深深嵌套的哈希。我怎样才能深入比较这些结构？

Answer 1

您可以使用JSON对JSON进行解码，如果您的系统上安装了JSON::XS，则只需使用{{3}}。

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";