Apache服务器上CGI脚本运行空白页问题排查求助

核心问题分析 #

空白页通常是脚本执行过程中触发致命错误，且错误信息未输出到浏览器导致的。你的脚本存在以下几个关键问题：

• 缺少错误捕获机制：Perl默认不会将运行时错误发送到浏览器，出错后脚本直接终止，无任何输出，自然显示空白页。
• 未处理参数缺失/非法值：如果请求中没有传递cost、number、revenue参数，或者number为0，会触发除以0、数值运算失败等致命错误。
• 未启用严格模式：直接使用未声明的变量，可能引发潜在的语法或逻辑错误，且难以排查。

修复后的脚本示例 #

#!/usr/bin/perl 
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser); # 将错误输出到浏览器

print "Content-Type: text/html\n\n";

# 获取参数并做默认值处理，避免undef或非法值
my $cost = param('cost') || 0;
my $num = param('number') || 1; # 避免除以0，可根据实际需求调整默认值
my $rev = param('revenue') || 0;

# 确保参数是数值类型，避免字符串运算错误
$cost = $cost =~ /^\d+(\.\d+)?$/ ? $cost : 0;
$num = $num =~ /^\d+(\.\d+)?$/ && $num > 0 ? $num : 1;
$rev = $rev =~ /^\d+(\.\d+)?$/ ? $rev : 0;

my $avg = $cost / $num;
$avg = sprintf("%.2f", $avg);
my $gp = $rev - $cost;

print "Project Cost Last Year was  \$ $cost .<p>";
print "We completed $num projects during the year.";
print " That works out to an average of \$ $avg cost per project.";
print "<p>Our annual project revenue was \$ $rev <br>";
print "We made a gross profit of \$ $gp \n";

额外排查步骤 #

• 检查Apache的CGI配置：确保Apache已启用CGI模块（mod_cgi或mod_cgid），且脚本所在目录被配置为允许执行CGI（比如在httpd.conf中设置Options +ExecCGI，并关联.cgi或.pl后缀到CGI处理器）。
• 查看Apache错误日志：如果浏览器还是空白，直接去Apache的错误日志文件（通常在/var/log/apache2/error.log或类似路径）查看具体错误信息，这是排查CGI问题的关键。
• 直接在命令行运行脚本：在服务器上执行perl your_script.pl，手动传入参数（比如perl your_script.pl cost=1000 number=10 revenue=2000），看是否有报错，快速定位脚本本身的问题。

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