perl-将一个数据结构转换为另一个数据结构

Question

我正在尝试使用Perl将一个数据结构转换为另一种数据结构。

my $agent_details = $dbh->selectall_arrayref(
    "SELECT agent_id, year, type FROM agents ORDER BY agent_id",
    { Slice => {} }
);

我最终以数据结构的方式：

$VAR1 = [
          {
            'agent_id' => '1',
            'year' => '2000',
            'type' => '14',
          },
          {
            'agent_id' => '2',
            'year' => '2001',
            'type' => '14',
          },
          {
            'agent_id' => '3',
            'year' => '2002',
            'type' => '14',
          },
          {
            'agent_id' => '4',
            'year' => '2000',
            'type' => '14',
          },
          {
            'agent_id' => '5',
            'year' => '2001',
            'type' => '14',
          },
          {
            'agent_id' => '6',
            'year' => '2002',
            'type' => '14',
          },
]

我想做的就是变成阵列的哈希：

$VAR2 = {
          '2000' => [1, 4],
          '2001' => [2, 5],
          '2002' => [3, 6],
}

我能够用一些丑陋的循环来完成此操作，但是我觉得有一种更容易 /更好的清洁方法可以做到这一点。

Answer 1

my %agents_by_year;
for $agent ( @$agents ) {
   push @{ $agents_by_year{ $agent->{ year } } }, $agent->{ agent_id };
}