Perlで多次元ハッシュで重複している要素を削除する

Question

Perlで以下のような多次元ハッシュ（この言い方が合っているかわかりませんが‥）で、idが重複している要素を削除したいのですが、どのような処理になるでしょうか。

my $ver = {
{id => 1, code => 'aaa'},
{id => 2, code => 'bbb'},
{id => 3, code => 'ccc'},
{id => 1, code => 'aaa'},
};

宜しくお願い致します。

Comments

[ikedas]

外側の括弧は「{……}」で間違いないでしょうか (「[……]」ではないのか)。できれば実際のコードを提示していただきたいです。

Answer 1

ikedas さんの指摘通り、本来質問したかった事は、Array of Hashes の key 重複要素除外と考えての回答です。

my %cache ;
my $ver2 = [ grep { ! $cache{$_->{id}} ++ } @{$ver} ] ;

$ver2 に重複要素が除外されたものが入っています。

grep{ ! $cache{$_} ++ } で重複要素が、最初に出現したものだけ集める事ができます。

別の書き方をすれば、

my $ver2 ;
my %cache ;
for my $r ( @{$ver} ){
    next if defined $cache{$r->{id}}  ;
    push @{$ver2}, $r ;
    $cache{$r->{id} } ++ ;
}