perl，比较散列，子集

Question

我想知道是否有任何简单的算法来比较一个散列是否是另一个散列的子集。

例如，如果

$HASH{A} = B;
$HASH{B} = C;
$HASH{C} = D;

$HASH2{A} = B;
$HASH2{B} = C;

那么 %HASH2 是 %HASH 的子集。

Answer 1

这使用 "smart matching" (~~) 和 List::Util::first

use 5.010;
use List::Util qw<first>;

sub hash_is_subset { 
    my ( $hash, $cand ) = @_;
    return not defined( first { not $hash->{ $_ } ~~ $cand->{ $_ } } keys %$cand );
}

hash_is_subset( \%HASH, \%HASH2 );