为什么 Perl 的 CGI::FormBuilder 抱怨“没有为 select 指定选项”？

Question

我从我的 CGI 脚本中收到此错误：

my_circle.pl：[FormBuilder] 警告：metro：没有为 /home/ecoopr/ecoopr.com/CPAN/CGI/FormBuilder.pm 第 1407 行的“选择”字段指定选项，引荐来源：http://kkarnam.ecoopr.dyndns.org:880/home.pl

你能建议我什么可能是问题？

Answer 1

正如错误消息所示，您可能正在尝试构建一个 select 表单小部件而不指定任何选项。

找出触发 CGI::FormBuilder 的该部分的原因。您可以使用类似 Carp::Always 将所有错误和警告转换为堆栈跟踪这样您就可以回到引发问题的代码行。

相关代码是 prepare 方法中的匿名哈希构造，看起来它希望您为 select 提供一些选项：

1406         # Create a struct for each field
1407         $tmplvar{field}{"$field"} = {
1408              %$field,   # gets invalid/missing/required
1409              field   => $field->tag,
1410              value   => $value[0],
1411              values  => \@value,
1412              options => [$field->options],
1413              label   => $field->label,
1414              type    => $field->type,
1415              comment => $field->comment,
1416              nameopts => $field->nameopts,
1417              cleanopts => $field->cleanopts,
1418         };

Answer 2

确保为选择定义了一些选项。
例如，考虑以下表单字段定义：

$form->field(
    name     => 'dept_id',
    label    => 'Dept',
    type     => 'select',
    options  => \@dept_options,
    required => 1,
);

如果 @dept_options 数组为空，CGI::FormBuilder 将发出警告。