使用Perl显示html单选按钮？

我想显示用于选择学生性别的两个单选按钮。当我尝试使用Perl模块设置变量以生成这些单选按钮的html代码时，只显示单选选择文本，而不显示按钮：

$cInput_form .= $q->div({-class => 'control-group'},
                    $q->label({-class => 'control-label', -for => 'gender'}, "Gender:"), 
                    $q->div({class => 'controls'}, 
                    $q->span({class => 'span12'},
                    $q->label({-class => 'blue'},
                    $q->radio_group({-id => 'gender',name => 'gender', -values => ['M','F'], -labels => \%labels, -default => $cGender, 'true'}), $q->span({-class => 'lbl'})))));

当我在web浏览器中使用“Inspect元素”工具时，我看到的html是：

<div class="control-group">
  <label class="control-label" for="gender">Gender:</label>
  <div class="controls">
    <span class="span12">
      <label class="blue">
        <label>
          <input type="radio" name="gender" value="M" checked="checked" id="gender" true="">
          Male
        </label>
        <label>
          <input type="radio" name="gender" value="F" id="gender" true="">
          Female
        </label>
        <span class="lbl"></span>
      </label>
    </span>
  </div>
</div>

性别：
男性
女性

---

我认为问题在于

不在正确的位置，但我不知道它还应该在哪里。请帮帮我。

我认为问题可能是您将radio_组分组在不必要的标签组中。页面显示的代码与您希望创建性别选择单选按钮组的情况类似

尝试将代码更改为（重新格式化以使其更具可读性）：

这是未经测试的，但我认为这一点是正确的，只是在将一个部分分组到另一个部分时要小心。希望有帮助

$cInput_form .= $q->div({-class => 'control-group'},
                $q->label({-class => 'control-label', 
                           -for   => 'gender'}, Gender:"), 
                $q->radio_group({-id => 'gender',
                                 name => 'gender', 
                                 -values => ['M','F'], 
                                 -labels => \%labels, 
                                 -default => $cGender, 
                                 'true'}),
                        );