Docker化Perl Web应用遇CGI::Plus安装及运行错误求助

问题分析 #

从安装日志和运行报错可知，CGI::Plus 0.15版本的代码在/usr/local/lib/perl5/site_perl/5.38.0/CGI/Plus.pm第644行调用了未定义的randword子例程。该模块最后更新于2001年，与新版Perl（如5.38）存在兼容性缺陷，测试用例也因该问题失败。

解决方案 #

1. 强制跳过测试安装CGI::Plus #

替换Dockerfile中安装CGI::Plus的命令，强制跳过测试完成安装：

# 替换原RUN cpan -T CGI::Plus为以下命令
RUN perl -MCPAN -e "CPAN::Shell->notest('install', 'CGI::Plus')"
# 或用更高效的cpanm
# RUN cpanm -n CGI::Plus

2. 手动补充randword子例程 #

安装完成后，直接修改CGI::Plus模块文件，补充缺失的randword子例程定义：

RUN echo 'sub randword { my $len = shift || 8; join "", map { ("a".."z", "A".."Z", 0..9)[rand 62] } 1..$len }' >> /usr/local/lib/perl5/site_perl/5.38.0/CGI/Plus.pm

该子例程可生成默认8位的随机字符串，匹配原模块对randword的功能预期。

3. 优化Dockerfile模块安装流程 #

原Dockerfile存在多次重复更新源、单独安装模块的冗余操作，合并后减少镜像层数并提升构建效率：

# 替换所有模块安装步骤为以下内容
RUN apt-get update && apt-get install -y libcgi-pm-perl r-base && \
    cpanm -n CGI CGI::Session DBI Crypt::Eksblowfish::Bcrypt File::Basename \
        Auth::Yubikey_WebClient Tie::IxHash Apache::Solr HTML::Entities \
        WWW::CSRF Crypt::Random LWP::Simple Text::NSP::Measures::2D::Fisher::twotailed \
        XML::Simple Statistics::R Cache::FileCache Digest::MD5 Date::Calc \
        Data::Dumper Text::ParseWords Cwd Log::Log4perl Bio::DB::Fasta \
        Log::Dispatch::File CGI::Safe String::Util CGI::Plus && \
    perl -MCPAN -e "CPAN::Shell->notest('install', 'XML::DOM::XPath')" && \
    apt-get clean && rm -rf /var/lib/apt/lists/* /tmp/* /var/tmp/*

4. 完善Apache CGI配置 #

确保Apache的CGI模块已启用，在Dockerfile中添加：

RUN a2enmod cgid

同时检查脚本的shebang行（如#!/usr/bin/perl）是否正确，文件执行权限是否配置到位。

验证修复 #

构建镜像并运行容器后，执行以下命令测试脚本：

docker exec -it <容器ID> perl /var/www/html/cgi-bin/admin.pl

若不再出现Undefined subroutine &CGI::Plus::randword错误，说明修复生效。

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