perl CGI radio_group: remplir les valeurs de la requête DB

Question

Je tente de générer dynmiquement une table qui a un bouton radio par ligne dont la valeur est définie sur le champ ID d'une table SQL. Je ne sais pas comment je peux référencer cette valeur en utilisant CGI radio_group. Dans mes recherches, radio_group utilise un tableau associatif, mais si je convertis la requête SQL en tableau associatif, les valeurs ne correspondront pas car il y a plus de 2 tables dans la requête. Si possible, je voudrais éviter un second appel 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

Ouais je pense Im va nix la la méthode de bouton radio CGI pour cette partie et ont juste l'impression print "<input type="radio">;, il fonctionne de cette façon. J'essayais seulement d'utiliser cette méthode parce que je n'avais pas réalisé qu'il y avait des méthodes start_div et end_div. Avant de les trouver, je pensais que c'était mon seul moyen d'atteindre les boutons radio à l'intérieur du conteneur q-> div().

J'ai exclu la partie Div du code car elle ne semblait pas pertinente.