配列の順序を無視して深くネストされたデータ構造を比較する

Question

深く入れ子になったデータ構造をperlで比較する必要があります。 構造体にスカラー、配列、ハッシュを含めることができます。 私はXSの実装を好むでしょう。 データは元々JSONとして届きました。

データスキーマでは、配列内のアイテムの順序は保証されず、比較が難しくなります。

私はTest :: Deepを試しました。アプローチは、唯一の配列がトップレベルにあるときは簡単ですが、オーダーセンシティブな配列が構造内に深く入れ子になっていると重いです。

Answer 1

アレイにはスカラーしか含めることができない場合。あなたはData::Compareを試してみることができます。数値配列を使用した例を示します。詳細については、Data::compareのプラグインを書き込む必要があります（Data::Compare::Pluginsを参照）。

test.pl：

use lib '.'; 
use strict; 
use warnings; 
use Data::Compare; 

my $h1 = { a => {b => [2, 1, 3] }, c => 3}; 
my $h2 = { a => {b => [1, 2, 3] }, c => 3}; 

print 'The structures $h1 and $h2 are ', 
    Compare($h1, $h2) ? "" : "not ", "identical.\n"; 

./Data/Compare/Plugins/ArrayBag.pm：test.plを実行しているから

package Data::Compare::Plugins::ArrayBag; 

use strict; 
use warnings; 
use Data::Compare; 

sub _register { 
    return [ 
     ['ARRAY', 'ARRAY', \&array_compare], 
    ]; 
} 

sub array_compare { 
    my($a1, $a2) = @_; 

    return 0 if (scalar @$a1) != (scalar @$a2); 
    my @ar1 = sort { $a <=> $b } @$a1; 
    my @ar2 = sort { $a <=> $b } @$a2; 
    for my $i (0..$#ar1) { 
     return 0 if $ar1[$i] != $ar2[$i]; 
    } 
    return 1; 
} 

_register(); 

出力：

The structures $h1 and $h2 are identical.