arrays - キーとしての配列列名のPerlハッシュ

Question

SQL クエリの結果を使用して配列のハッシュを作成しようとしています。

列 1:

1                                         
2
3
4

列 2:

A 
B 
C 
D

望ましい結果:

my %by_col = (
    'Column1'=>['1','2','3','4'],
    'Column2'=>['A','B','C','D'],
);

次を使用して、結果をハッシュの配列として取得できます。

while ($hash_ref = $sth->fetchrow_hashref()) {
    push @$hash_array_ref, { %$hash_ref };
}

しかし、その逆はわかりません。

ありがとう！

Answer 1

while (my $row = $sth->fetchrow_hashref()) {
   for my $col_name (keys(%$row)) {
      push @{ $by_col{$col_name} }, $row->{$col_name};
   }
}