Perl で｢ﾊｯｼｭの配列｣を扱う場合のﾒﾓ[Perl]
(2017-05-24 16:12:50) by shinoda

< ﾍﾟｰｼﾞ移動: 1 2 >

久しぶりに DB ﾃﾞｰﾀが｢ﾊｯｼｭの配列｣にｾｯﾄされまくってる感じの Perl ﾌﾟﾛｸﾞﾗﾑのﾒﾝﾃを行うことになったので､ﾊｯｼｭ(連想配列)のﾘﾌｧﾚﾝｽなどについてﾒﾓ｡

まあ､Perl の多次元配列については､木本裕紀さんの｢Perl学習ｻｲﾄ - ｻﾝﾌﾟﾙｺｰﾄﾞPerl入門｣ｻｲﾄの中の｢配列とﾊｯｼｭで多次元ﾃﾞｰﾀ構造を自由に操る｣がそのまま参考になる｡

なので､ここで書いているのはその補足｡

ﾊｯｼｭ(連想配列)を配列にｾｯﾄした､いわゆる｢ﾊｯｼｭの配列｣を扱う場合｡

下のｺｰﾄﾞは､PostgreSQL から取得したﾃﾞｰﾀをｾｯﾄしてる例(余分な処理は削ってるので､｢例外に対する処理が甘い｣とか､そういうﾂｯｺﾐはなしで(笑))

@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;
}

これで､ｸﾗｽ名簿が｢ﾊｯｼｭの配列｣にｾｯﾄされる｡

全員のﾃﾞｰﾀを読みだそうとしたら､

< ﾍﾟｰｼﾞ移動: 1 2 >

ｺﾒﾝﾄ(2)
次の記事へ >
< 前の記事へ
TOPへ戻る

Powered by
MT4i 3.0.8