Pg.pm 使用時に SQL 実行結果をカラム名でアクセス

- fnumber を使ってカラム名を添字に変換する

print $result->getvalue(0, $result->fnumber('serialnum'));

- 無名ハッシュの配列にマッピングする。

my @sql_result = get_sql_result($result);
print $sql_result[0]->{'ao_cd'};

# SQL の実行結果を結果をハッシュの配列にして返す
sub get_sql_result($) {
  my $result = $_[0];
  my $record_nums = $result->ntuples;
  my $field_nums = $result->nfields;

  my @result_records = ();
  for (my $i = 0; $i < $record_nums; $i++) {
    my $buf = {};
    for (my $j = 0; $j < $field_nums; $j++) {
      my $field_name = $result->fname($j);
      $buf->{"$field_name"} = $result->getvalue($i, $j);
    }
    push(@result_records, $buf);
  }

  return @result_records;
}