看起来像 Perl CGI 错误

Question

Perl 版本 5.8.5 我有：

my @dt = qw( 1 0 );
my %dt = qw( 1 single 0 multi );
my $val = 0;

$cgi->popup_menu( {
    -name    => "test",
    -default => $val,
    -values  => \@dt,
    -labels  => \%dt,
} )

在弹出窗口中一切正常，除了“已选择”从未设置。 所以总是选择第一个 val。

如果我进行更改，并在所有情况下将 0 更改为 2（$val、@dt 和 %dt），那么一切正常，并且我在 HTML 标记中得到“选中”。

我也将代码处理到 Perl 5.8.8 框，它在那里工作 零？我是否需要让我们的系统管理员在 5.8.5 机器上提升我们的 Perl 版本？

Answer 1

您可以通过 CPAN 独立于 perl 本身更新 CGI。

如果您包含相关的使用语句和模块版本，以及示例 HTML 输出，将会很方便。

更新：看起来您的 perl 版本应该使用 CGI 3.05（参见 Module::CoreList）。检查 CGI 的更改日志，我们发现这是一个已知错误。

3.45 版，2009 年 8 月 14 日 [BUG修复] 3. 允许在popup_menu() 中使用0 作为默认值。这从 3.37 开始就被打破了。感谢 Haze，他是第一个报告此问题并提供补丁的人，以及 pfschill，他指出了该错误何时被引入。还添加了对此的回归测试。 (RT#37908)

（他们可能没有正确剖析（重新）引入的错误）​​

附：而不是单独的@dt 只需将-values 设置为[ sort keys %dt ]

Answer 2

您可能是正确的，并且您运行的是旧版本的 CGI 模块

perl -MCGI -e 'print $CGI::VERSION, "\n"' 产生什么？而在v5.8.8系统上呢？

我正在运行 CGI 的 4.28 版，结果看起来正确

<select name="test" >
<option value="1">single</option>
<option selected="selected" value="0">multi</option>
</select>

无论如何，您可能会从升级中受益，因为即使 Perl v5.8.8 已经有十多年的历史了，但是如果更容易的话，您应该可以只升级 CGI 模块。事实上，该模块现在已被弃用，不再是核心模块，因此升级到 Perl v5.24 之后必须安装 CGI 才能恢复功能

CGI 功能不应该与 HTML 生成组合在同一个模块中，即使那些继续使用 CGI（它被广泛认为已被 PSGI 取代）的人也更喜欢使用单独的模块，如 CGI::Simple 或 CGI::Minimal 一起 HTML::Tiny 用于生成 HTML

belg4mit has identified，您发现的错误已在 CGI 模块的 3.4.5 版中修复，该模块最初是作为开发版本 Perl v5.11.0 的一部分发布的。随后的第一个公共 Perl 版本是 v5.12，其中包含模块的 3.4.8 版

由于您发现安装 Perl v5.8.8 没有显示问题，很可能该机器上的 CGI 模块已独立于 Perl 升级