Util.pl

arrref_to_hash.pl

#!/usr/bin/perl
# 便利関数
use strict;
use warnings;
use utf8;
use Clone qw(clone);

# arrrefをユニークな$keyごとのhashに変換する
# arrref_to_hash [{key => 1, foo => bar},{key = 2, foo => hoge}]
# >> {1 => {foo => bar}, 2 => {foo => hoge}}
sub arrref_to_hash   {
    my ($arrref, $key) = @_;

    my $out = {};
    my $clone_arrref = clone($arrref);
    for my $hash (@$clone_arrref){
        my $value = $hash->{$key};
        $out->{$value} = $hash;
        delete $out->{$value}->{$key};
    }
    return $out;
}

my $arrref = [{key => 1, foo => 'bar', a => 'b'},
              {key => 2, foo => 'hoge', a => 'c'},
              {key => 3, foo => 'foo', a => 'd'}];

my $hash = arrref_to_hash($arrref, 'key');
use Data::Dumper; warn Dumper $hash;
use Data::Dumper; warn Dumper $arrref;