値が SQL テーブルの ID フィールドに設定されている行ごとにラジオ ボタンがあるテーブルを動的に生成しようとしています。CGI radio_group を使用してこの値を参照する方法がわかりません。私の研究では、radio_group は連想配列を使用していますが、SQL クエリを連想配列に変換すると、クエリに 2 つ以上のテーブルがあるため、値が一致しません。可能であれば、2 回目の SQL 呼び出しを避けたいと思います。
use CGI;
use DateTime::Format::MySQL;
$epoch = DateTime->now(time_zone=>"America/New_York");
$fmtnow = DateTime::Format::MySQL->format_datetime($epoch);
$iasql = qq { select * from alert where endtime > '$fmtnow'};
$iaqry = $iadb->prepare($iasql);
$iaqry->execute() || die "Fail $DBI::errstr"
print $query->start_table({-border=>1, -cellpadding =>1});
while(@iarows = $iaqry->fetchrow_array()) {
print $query->Tr(print $query->td([print $query->radio_group('iaselect',\@iarows[0]),'@iarows[1]','@iarows[2]','@iarows[3]','@iarows[4]','@iarows[5]']));
}
print $query->end_table();