fetch中にDBアクセス

質問

お世話になります。
PERLでなくても、どの言語でもそうだと思うのですが、
通常、Selectで取得したデータを元に再度DB検索に行き、
違うデータを取得したい場合、fetchの中でさらにDB検索を行うかと思います。
（あまり処理としてはよくないとは思うのですが）

今回既存のプログラムに要件を追加するのですが、その際
上記のような処理を行いたいと考えています。

しかし既存のプログラムを見ているとそういう例がひとつもありません。
それがたまたまなのか、意図的なのかはわかりませんが、
意図的だとするとなにか理由があるのでは？と思い、投稿しました。

while ($rc = $DBr->fetchrow_hashref) {
　while ($rc2 = $DBr->fetchrow_hashref){

　}
}
というようにしたいのですが、1つ目の$DBr->finish が行われる前には
PERLではできないよ、ということがあれば教えてください。
よろしくお願いいたします。

回答No.1

k_o_r_o_c_h_a_n · ベストアンサー

＞1つ目の$DBr->finish が行われる前には
＞PERLではできないよ、ということがあれば教えてください。

通常の手順通りに呼び出すのであれば、多重ループの複数箇所で
fetchしても動作はします。

ただ、その例だと、一つ目のwhileは１度評価されたあとは、
残りを２つ目のwhileが処理するので、実質的に、多重ループに
なっていないように見受けます。

お礼

返答ありがとうございます。
すみません。2回とも$DBrに対してfetchをかけている
ので、結果として同じことになってしまっているってことですよね。
私の行いたかった処理は
my(%REC);
my(%SQLPARAM);
my(@LIST);
---ここで★DB読み込み処理(prepare , execute等)
while ($rc = $DBr->fetchrow_hashref) {
　$REC{HOGE} = $rc->{'hoge'};
　#読み込んだレコードを次のSQLパラメーターとしてセット
　$SQLPARAM{HOGE} = $REC{HOGE};
　---ここで★2個目のDB読み込み処理(prepare , execute等)
　while ($rc2 = $DBr2->fetchrow_hashref){
　　pushi(@LIST,$rc2);
　}
}
といった処理を行いたかったのです。でもどうもできそうですね。
ありがとうございました。