Perl Postgres 連想配列化

いつもお世話になっております。

標題についてご教授願えないでしょうか

Perl+Postgressqlで取得したレコードを連想配列化にしたいのですが、

@data = ();

my $conn = Pg::connectdb(接続情報)

my $query = "SELECT * FROM data;

my $result = $conn->exec($query)
if($result->resultStatus ne PGRES_TUPLES_OK){
exit;
}

my $cnt = $result->npuples
my $fields = $resut->$rset->nfields;

for ($i=0; $i<$cnt; $i++){
for(j=0; $j<fields; $j++){
$data[$cnt][$result->fnam($fields)] = $result->getvalue($j,$j)
}

これではいけないんでしょうか。

No.1 回答者： Tacosan 回答日時： 2012/09/11 12:39

「連想配列化にしたい」の意味は分かりませんが, 連想配列は使わなくていいのですか?

まぁそれ以前に文法的にアウトだけど.

この回答へのお礼

回答有難うございます　。

返信が遅くなりましたが、
実はあの後、色々調べてやったら、
ものの５分で出来てしまいました。

結果取得したデータをハッシュに生成しました。
$data{$cnt}{$fields}の形式でできました。

お礼日時：2012/09/11 17:57