如何在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;