perl 获取表单传递checkbox 中内容

在 Perl 中，可以通过 CGI 模块来获取表单传递的数据。对于 checkbox 中的内容，需要使用 CGI 模块中的 param 函数来获取。如果 checkbox 被选中，则通过 param 函数获取到的值为 checkbox 的 value 值；如果 checkbox 没有被选中，则获取到的值为 undef。

以下是一个示例代码，演示如何获取 checkbox 中的内容：

use CGI;

# 创建 CGI 对象
my $cgi = CGI->new();

# 获取 checkbox 的值
my $checkbox_value = $cgi->param('checkbox_name');

# 判断 checkbox 是否被选中
if (defined $checkbox_value) {
    print "Checkbox is checked, value is $checkbox_value";
} else {
    print "Checkbox is not checked";
}

其中，`checkbox_name` 是 checkbox 控件的 name 属性值。如果有多个 checkbox，则可以使用数组形式来获取多个 checkbox 的值，例如：

# 获取多个 checkbox 的值
my @checkbox_values = $cgi->param('checkbox_name');
foreach my $value (@checkbox_values) {
    print "Checkbox value is $value";
}