Альтернатива array_minus, которая расширяет ссылки в Perl

Question

У меня есть массивы хеш-ссылок в Perl. Мне нужно сравнить их, т. Е. Эффективно делать то, что делает array_minus(), но мне нужно сделать сравнение с контентом хеша, а не ссылкой.

Возьмите этот MWE:

#!/usr/bin/perl 
use Array::Utils qw(:all); 
use Data::Dumper; 

my %en = ('first' => 'one', 'second' => 'two', 'third' => 'three'); 
my %en2 = ('first' => 'one', 'second' => 'two', 'third' => 'three'); 
my %eo = ('first' => 'unu', 'second' => 'du', 'third' => 'tri'); 

my @set = (\%en, \%eo); 
my @subset = (\%en2); 

print(Dumper(array_minus(@set,@subset))); 

Я считаю, что array_minus() сравнивает ссылки, которые отличаются, так что выход:

$VAR1 = { 
      'first' => 'one', 
      'second' => 'two', 
      'third' => 'three' 
     }; 
$VAR2 = { 
      'first' => 'unu', 
      'second' => 'du', 
      'third' => 'tri' 
     }; 

Есть ли альтернатива, или вариант, который бы сравнение по содержанию хешей? Конечно, когда хеши в MWE не включены в качестве ссылки, сравнение работает правильно, и возвращается только один хеш.

Answer 1

Что-то, как это должно работать (непроверенные):

sub serialize { 
    use JSON::XS; 
    JSON::XS->new->pretty(0)->ascii(1)->canonical(1)->encode($_[0]) 
} 

sub array_minus_deep(\@\@) { 
    my ($array,$minus) = @_; 

    my %minus = map((serialize($_) => 1), @$minus); 
    grep !$minus{ serialize($_) }, @$array 
}