perl, 해시 비교, 서브 세트

Question

하나의 해시가 다른 해시의 하위 집합인지 비교하기 쉬운 알고리즘이 있는지 궁금합니다. 예를 들어

,

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

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

다음 HASH2 %의 %는 해시의 서브 세트 인 경우.

Answer 1

가정 당신의 해시가 간단한 루프와 함께이 작업을 수행 할 수 있습니다 (예를 들어, 그들은 값으로 참조를 포함하지 않는) 간단합니다 : 영어

sub is_subset { 
    my ($h1, $h2) = @_; 

    while (my ($k, $v) = each %$h1) { 
     exists $h2->{$k} && $v eq $h2->{$k} 
      or return; # in case of list context, thanks davorg 
    } 
    return 1; 
} 

, 즉, 각 키 값 쌍 통과 첫 번째 해시를 요청하고 (a) 두 번째 해시의 키이고 (b) 그렇다면 값이 같은지 묻습니다. 그렇지 않다면 첫 번째 해시는 두 번째 해시의 하위 집합이 아닙니다. 그렇지 않으면 그렇습니다.

당신의 해시가 예를 들어, 더 복잡한 경우, 값은하는 hashref 수 있습니다 다음 CPAN을 더 나은 (예, { h2 => { a => 1 } }의 부분 집합 { a => 1 }입니다) '집합'을 정의하고, 아마 재귀를 사용 (또는 확인하는 첫번째 필요).

Answer 2

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