perl 获取请求路径中所有checkbox的状态

在 Perl 中，你可以使用 CGI 模块来获取请求路径中所有 checkbox 的状态。下面是一个例子：

use CGI;

my $cgi = CGI->new;

# 获取所有参数
my %params = $cgi->Vars;

# 遍历所有参数，查找 checkbox
foreach my $param (keys %params) {
    if ($param =~ /^checkbox_\d+/) {
        # 如果参数名以 "checkbox_" 开头，表示这是一个 checkbox
        my $value = $params{$param};
        if ($value eq "on") {
            # 如果 checkbox 被选中，$value 的值为 "on"
            print "$param is checked\n";
        } else {
            # 如果 checkbox 没有被选中，$value 的值为 ""
            print "$param is not checked\n";
        }
    }
}

在这个例子中，我们首先创建了一个 CGI 对象，然后使用 `$cgi->Vars` 方法获取所有参数。接着使用正则表达式遍历所有参数，查找以 "checkbox_" 开头的参数名，如果找到了，就判断它的值是否为 "on"，从而确定 checkbox 是否被选中。最后根据 checkbox 的状态输出相应的信息。