Perl で「ハッシュの配列」を扱う場合のメモ

@persons = ();

# DB から $sql の条件でデータ取得（例えば、クラス名簿とか）
$result = $Conn->exec($sql);
if (!$result->resultStatus eq PGRES_TUPLES_OK) {
# DB エラーなら処理を抜ける
exit;
}

# 人数分データを読み込む
for ($i = 0 ; $i < $result->ntuples ; $i++) {
# DB から取得した名前、性別、年齢をハッシュにセット
my %person = ();
$person{'name'} = $result->getvalue($i, $result->fnumber(name));
$person{'sex'} = $result->getvalue($i, $result->fnumber(sex));
$person{'age'} = $result->getvalue($i, $result->fnumber(age));
# ハッシュを配列にセット
push @persons, \%person;
}

foreach $person (@persons) {
foreach $key (keys %$person) {
$value = $person->{$key};
print "$key : $value\n";
}

}

name : Masunori

sex : m

age : 23

name : Beiko

sex : f

age : 44

.....

name : Taro

sex : m

age : 18

print @$persons[0]->{'sex'};