CGI.pm报错：Can't use 'defined(@array)'问题排查与解决求助

问题根源 #

你的Perl应用报错是因为Perl 5.26及以上版本禁止对数组使用defined()语法，而你当前使用的CGI模块（版本3.51）的代码中，第528行依然使用了defined(@QUERY_PARAM)这个已被废弃的写法，导致编译失败。

即使精简代码到仅包含use CGI;语句，错误依然会触发——因为加载CGI模块时就会执行这段有问题的代码。

规范解决方案 #

直接修改系统自带的CGI.pm文件不推荐（会被系统包更新覆盖，还可能影响其他依赖旧版本的应用），推荐以下几种合规方案：

1. 升级CGI模块到兼容版本 #

Perl官方早已修复了CGI模块中的这个语法问题，升级到CGI 4.04及以上版本即可解决。

• 若要全局升级（需root权限）：

  cpan CGI
  

• 若不想影响系统全局环境，使用local::lib安装到用户目录：

  # 安装local::lib
  cpan local::lib
  # 配置环境变量（永久生效，添加到bash配置）
  echo 'eval "$(perl -I$HOME/perl5/lib/perl5 -Mlocal::lib)"' >> ~/.bashrc
  source ~/.bashrc
  # 升级CGI到兼容版本
  cpan CGI
  

  升级后，脚本会自动优先使用用户目录下的新版本CGI。

2. 临时兼容补丁（无需升级模块） #

如果暂时无法升级，可在脚本开头添加代码，重定义CGI模块的问题方法，绕过错误语法：

#!/bin/perl

BEGIN {
    # 补丁CGI模块的new方法，替换defined(@array)为合法判断
    use CGI ();
    no warnings 'redefine';
    my $original_new = \&CGI::new;
    
    *CGI::new = sub {
        my $class = shift;
        my $initializer = shift;
        
        # 替换defined(@QUERY_PARAM)为数组非空判断（原逻辑等价写法）
        if (@CGI::QUERY_PARAM && !defined($initializer)) {
            my $self = bless {}, $class;
            for my $name (@CGI::QUERY_PARAM) {
                my $val = $CGI::QUERY_PARAM{$name};
                $self->param('-name'=>$name,'-value'=> $val);
                if (defined $val and ref $val eq 'ARRAY') {
                    for my $fh (grep {defined(fileno($_))} @$val) {
                        seek($fh,0,0);
                    }
                }
            }
            return $self;
        }
        # 其他情况调用原方法
        return $original_new->($class, $initializer, @_);
    };
}

# 后续正常加载模块
use lib '/usr/lib/perl5/site_perl/5.8.8/';
use Net::LDAP;
use Data::Dumper;
use CGI;
use MIME::Base64;
use warnings;

3. 强制使用用户目录的新版本CGI #

如果已经通过local::lib安装了新版本CGI，确保脚本优先加载用户目录的模块：

#!/bin/perl
# 先加载用户目录的模块路径
use lib "$ENV{HOME}/perl5/lib/perl5";
# 再加载CGI，会优先使用用户安装的新版本
use CGI;

内容的提问来源于stack exchange，提问作者jstack100