Question

我试图动态地生成一个表，每行有一个单选按钮，其值设置为SQL表的ID字段。我不知道如何使用CGI radio_group引用此值。在我的研究中，radio_group使用了一个关联数组，但是如果我将SQL查询转换为关联数组，则值不会匹配，因为查询中有两个以上的表。如果可能的话，我想避免第二次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();

Answer 1

是的我想我会为这个部分修改CGI单选按钮方法，只需要打印print "<input type="radio">;，它就是这样的。我只是试图使用这种方法，因为我没有意识到有start_div和end_div方法。在找到那些之前我认为这是我在q-＆gt; div（）容器内实现单选按钮的唯一方法。

我排除了代码的Div部分，因为它似乎并不相关。

perl CGI radio_group：填充数据库查询中的值

1 个答案: