Perl CGI脚本出现Internal Server Error问题求助

1. 正则表达式匹配错误 #

你的请求参数格式是abc+3（用+分隔字符串和重复次数），但当前正则/^(\w+)+(\d+)$/存在两处问题：

• 多余的+：(\w+)+属于重复捕获语法，完全不符合abc+3的结构
• 未转义分隔符：+在正则中是量词，需要转义为\+才能匹配实际的参数分隔符

修正后的正则：

my ($string, $reps) = $input =~ /^(\w+)\+(\d+)$/;

2. 未处理匹配失败的边界情况 #

如果参数格式错误（比如传入abc或123+），正则匹配会失败，导致$string或$reps为undef。此时执行$string x $reps会触发致命错误，加上use strict和use warnings会输出警告信息——这些内容会在HTTP响应头之前输出，导致服务器识别到无效响应，返回500错误。

添加参数校验逻辑：

if (!defined $string || !defined $reps || $reps !~ /^\d+$/) {
    print "Content-Type: text/html\n\n";
    print "<html><body><p>无效输入格式，请使用 ?字符串+数字 的形式</p></body></html>\n";
    exit;
}

3. 验证脚本权限与Perl路径 #

• 确认shebang行的Perl路径正确：执行which perl，如果输出不是/usr/bin/perl，需要修改脚本第一行的路径
• 修正权限设置：
  • 脚本权限：执行chmod 755 script.cgi（需给其他用户读权限，仅+x不够）
  • 目录权限：确保/tmp/$USER/httpd/和/tmp/$USER/httpd/cgi-bin/都有755权限，保证httpd进程能遍历目录并读取脚本

4. 查看服务器错误日志定位细节 #

Red Hat系统下，Apache错误日志通常在/var/log/httpd/error_log，执行以下命令实时查看错误信息：

tail -f /var/log/httpd/error_log

重新访问脚本后，日志会给出精确的错误原因（比如语法错误、权限问题、变量未定义等）。

修正后的完整代码 #

#!/usr/bin/perl

use strict;
use warnings;

# 获取URL输入参数
my $input = $ENV{QUERY_STRING} // '';

# 解析字符串和重复次数
my ($string, $reps) = $input =~ /^(\w+)\+(\d+)$/;

# 处理无效输入
if (!defined $string || !defined $reps || $reps < 1) {
    print "Content-Type: text/html\n\n";
    print "<html><body><p>无效输入，请使用格式：?[字符串]+[正整数]</p></body></html>\n";
    exit;
}

# 生成HTML输出
print "Content-Type: text/html\n\n";
print "<html><body>\n";
print "<p>字符串 '$string' 重复 $reps 次的结果：</p>\n";
print "<p>" . ($string x $reps) . "</p>\n";
print "</body></html>\n";

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