能否为Perl的CGI::radio_group生成的单选组正确设置id属性？

默认情况下，CGI::radio_group如果直接指定-id参数，确实会给所有单选按钮设置相同的ID——这违反了HTML规范，因为同一文档中ID必须唯一。以下是两种可行的解决方法：

方法一：利用-attributes参数批量设置唯一ID #

通过-attributes参数，你可以为每个选项对应的单选按钮单独指定ID，同时保持-name一致以确保单选组的互斥性。示例代码：

use CGI qw(:standard);

my $q = CGI->new;
print $q->radio_group(
    -name       => 'user_choice',
    -values     => ['apple', 'banana', 'cherry'],
    -labels     => {
        apple  => '苹果',
        banana => '香蕉',
        cherry => '樱桃'
    },
    -attributes => {
        apple  => { id => 'choice_apple' },
        banana => { id => 'choice_banana' },
        cherry => { id => 'choice_cherry' }
    }
);

这段代码会为每个单选按钮生成唯一ID，同时标签会自动关联对应ID（如果使用-labels参数的纯文本形式，CGI模块会自动生成正确的for属性）。

方法二：手动逐个生成单选按钮 #

如果需要更精细的控制，直接用radio_button循环生成每个选项是最稳妥的方式：

use CGI qw(:standard);

my $q = CGI->new;
my @opts = (
    { val => 'cat',  lbl => '猫咪' },
    { val => 'dog',  lbl => '狗狗' },
    { val => 'bird', lbl => '鸟儿' }
);

print '<div class="radio-set">';
foreach my $opt (@opts) {
    print $q->radio_button(
        -name  => 'pet_type',
        -value => $opt->{val},
        -id    => "pet_$opt->{val}"
    );
    print qq(<label for="pet_$opt->{val}">$opt->{lbl}</label><br>);
}
print '</div>';

这种方式完全避免了模块默认的ID重复问题，你可以自由调整每个元素的结构和属性。

关键注意点 #

单选组的核心是所有按钮共享同一个name属性，这是实现互斥选择的基础；而ID仅用于标签关联、CSS样式或JS操作，必须保证唯一性，这一点一定要区分开。

内容的提问来源于stack exchange，提问作者U. Windl