perl - 如何在 Perl 中获取唯一的哈希数组？

Question

我想获得唯一的哈希数组，但我不知道并且尝试了很多方法。请帮我解决这个问题:

注意:我不想使用任何 Perl 模块。

我尝试了什么:

%seen=();
@unique = grep { ! $seen{$_} ++ } @AoH;

@unique 仍然没有唯一的哈希值？？

例如:

发件人:

@AoH = (
{
   name  => "susheel",
   college => "MRITS",
},
{
   name  => "sunil",
   college => "MRITS",
},
{
   name  => "susheel",
   college => "MRITS",
},
);

到

@AoH = (
{
   name  => "susheel",
   college => "MRITS",
},
{
   name  => "sunil",
   college => "MRITS",
}
);

Answer 1

通过 name 键过滤唯一的哈希，

my %seen;
my @unique = grep { ! $seen{$_->{name}}++ } @AoH;