perl foreach 输出checkbox 内容

假设你有一个包含多个选项的复选框，每个选项都有一个值和一个标签，可以使用 Perl 的 `foreach` 循环来输出复选框中的选项及其标签。

以下是一个示例代码：

my @options = (
    { value => 'option1', label => 'Option 1' },
    { value => 'option2', label => 'Option 2' },
    { value => 'option3', label => 'Option 3' }
);

foreach my $option (@options) {
    print "<input type='checkbox' name='options' value='$option->{value}'> $option->{label}<br>";
}

在上面的代码中，我们定义了一个包含多个选项的数组 `@options`，每个选项都是一个哈希引用，其中包含 `value` 和 `label` 键。我们使用 `foreach` 循环遍历这个数组，对于每个选项，我们输出一个复选框和标签，其中复选框的值为选项的 `value` 键，标签的文本为选项的 `label` 键。输出的 HTML 代码将类似于以下内容：

<input type='checkbox' name='options' value='option1'> Option 1<br>
<input type='checkbox' name='options' value='option2'> Option 2<br>
<input type='checkbox' name='options' value='option3'> Option 3<br>

你可以根据自己的需要修改输出的 HTML 代码，例如更改复选框的名称或样式等。