在散列中查找重复项，存储在新散列中分组

Question

我有以下散列，我需要找到最上面的散列值6和4之间的副本。我已经尝试了一些解决方案，但没有太熟悉Perl语法来使其工作。

哈希我有

$VAR1 = { 
    '6' => [ '1000', '2000', '4000' ], 
    '4' => [ '1000', '2000', '3000' ] 
}; 

哈希我需要

$VAR1 = { 
    '6' => ['4000'], 
    '4' => ['3000'], 
    'Both' => ['1000','2000'] 
} 

Answer 1

1. 找到所有常见的元素，例如通过用散列进行重复数据删除。
2. 查找所有不常见的元素。

给定两个数组@x，@y，这将意味着：

use List::MoreUtils 'uniq'; 

# find all common elements 
my %common; 
$common{$_}++ for uniq(@x), uniq(@y); # count all elements 
$common{$_} == 2 or delete $common{$_} for keys %common; 

# remove entries from @x, @y that are common: 
@x = grep { not $common{$_} } @x; 
@y = grep { not $common{$_} } @y; 

# Put the common strings in an array: 
my @common = keys %common; 

现在，所有剩下的就是做了一下解引用和这样的，但应该是相当琐碎。

Answer 2

不需要其他模块。 Perl的哈希值是寻找uniq的或共同的价值观

my %both; 
# count the number of times any element was seen in 4 and 6 
$both{$_}++ for (@{$VAR1->{4}}, @{$VAR1->{6}}); 
for (keys %both) { 
    # if the count is one the element isn't in both 4 and 6 
    delete $both{$_} if($both{$_} == 1); 
} 
$VAR1->{Both} = [keys %both];