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

Question

我有两个 JSON 格式的数据结构。它们是深度嵌套的哈希。如何深入比较这些结构？

Answer 1

您可以使用JSON解码JSON，如果它安装在您的系统上，它只使用JSON::XS 。

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