如何移除Perl数组中的重复哈希引用？

如果你的数组里存在重复的哈希引用（即同一个哈希的引用多次出现），可以用以下两种常用方法去重：

方法一：利用临时哈希过滤 #

通过哈希表记录已出现的引用，借助grep函数过滤重复项：

my @array = ($hashref1, $hashref2, $hashref3, $hashref1);
my %seen;
# 保留首次出现的引用，过滤后续重复项
my @unique_array = grep { !$seen{$_}++ } @array;

原理：哈希的键具有唯一性，将哈希引用作为键存入%seen，第一次遇到引用时$seen{$_}为undef，取反后为真，元素被保留；后续再遇到相同引用时，$seen{$_}已被设为1，取反后为假，元素被过滤。

方法二：使用List::Util的uniq函数（Perl 5.20+） #

Perl 5.20及以上版本可以直接调用List::Util模块的uniq函数，它会基于标量的相等性（哈希引用的内存地址）去重：

use List::Util qw(uniq);
my @array = ($hashref1, $hashref2, $hashref3, $hashref1);
my @unique_array = uniq @array;

这个方法代码更简洁，效果和方法一完全一致，同样保留首次出现的引用，移除后续重复项。

注意：以上方法都是基于哈希引用的内存地址去重，仅当两个元素是指向同一哈希的完全相同引用时才会被视为重复。如果需要按哈希的内容去重，则需要额外处理哈希的内容比较。

内容的提问来源于stack exchange，提问作者Raghul