24,921
社区成员
发帖
与我相关
我的任务
分享求助： linux下apache关于cgi的问题
近日在RedFlag6.0Sp1下以源码方式安装了Apache2.2.8，html测试一切正常。httpd.conf里面的设置也修改过，权限也设置了。但在浏览器运行http://localhost/cgi-bin/test.cgi文件时一直提示：
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, you@example.com and inform them of the time the error occurred, and anything you might have done that may have caused the error.
More information about this error may be available in the server error log.
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, you@example.com and inform them of the time the error occurred, and anything you might have done that may have caused the error.
More information about this error may be available in the server error log.
...全文
请发表友善的回复…
发表回复
riskstar 2008-05-06
- 打赏
- 举报
自己在网上找到一些材料。先试试看.
联网调试CGI程序心得
供稿：用户供稿 ┆ 来源：启航网 ┆ 阅读： ┆ 更新：2007-4-23 9:41:55
初学用PERL写CGI程序，也找了个PERL的调试器PERL DEBUGGER来用，但好象对中文WINDOWS支持有问题，代码区总是一片混乱，一气之下就直接上网调试，一番头破血流下来，也积累了一些心得，写出来供跟我一样正在学习PERL的CGI编程的朋友们参考。
CGI程序最常见的错误就是500 Internal Server Error，对于这个错误提示，可以按以下步骤查找原因。
一、检查CGI程序的属性，一定要设为755才可以。
二、检查一下是不是用了BINARY方式上传，CGI程序一定要用ASCII方式上传。建议在所用的FTP软件里把.cgi,.pl都设定为使用ASCII方式，并且把连接选项里的上传方式设为AUTO。
三、如果上面两项都没有问题，那就是程序本身有语法问题，常见的语法问题有以下一些：
１。没有指定perl解释器的位置
程序的第一行必须是服务器上PERL解释器的位置，一般是#!/usr/bin/perl
２。在输出前没有先输出一个http头
CGI程序必须告诉浏览器，这以后的输出将作为一个HTML文档来对待建议将这个语句作为一个函数，在输出前调用之，下面是一个例子。
sub Head {
print "Content-type: text/htmlnn";
}
３。某语句少写了分号
４。括号、引号等不配套
常见的是少写一边，或者单双引号混用了（毕竟都是一个键啊）还有就是多写了引号，我在把DW里生成的HTML代码COPY到程序里时就经常犯这个错误比如 print "<img src=xxx.gif width="40" height="16">";这样的语句
５。给变量赋了非法的值
如$mail="xxx@xxx.com";就是一个非法的赋值应该写成$cgiurl="xxx@sina.com";或者使用单引号。
四、遇到上面３、４、５这样的情况，最主要的工作就是定位有问题的语句我所用的方法是这样的。
################
# 错误处理 #
################
sub error {
&Header('错误',"错误:$_[0]");
print "$_[1]";
&Tailer;
exit 0;
}
##################
# HTML 页面头部 #
##################
sub Header {
my ($title,$header) = @_;
print "Content-type: text/htmlnn";
print "<html><head><title>$title</title></head>n";
print "<meta http-equiv="Content-Type" content="text/html; charset=gb2312">n";
print "<center><h2>$header</h2></center><dir>n";
}
#################
# HTML 页面尾部 #
#################
sub Tailer {
print "</body></html>";
}
将上面这个错误处理函数放在程序的最尾部，而在程序的最前面就调用它
&error('调试','程序头');
平时将这一句注释掉，出现500错时将注释去掉，然后就可以使用Cut&Paste大法来查找错误语句了。具体方法是这样的：
１）先把&error()这一句到错误处理函数之间的语句Cut掉，上传执行，这样应该肯定能执行。此时应显示“错误：调试”和“程序头”字样。
２）将语句Paste回来，选取一半左右的语句Cut掉，当然要注意保持函数、循环的完整性，上传，看是否能够执行。
３）若能执行，有问题的语句一定在被Cut掉的那一半里，若不能执行，起码剩下的这一半语句就有问题。
４）这样反复Cut&Paste，很快就能找到错误语句的位置
其实实际运用中并不一定如此死板，一般来说自己改过什么地方以后才出的错心中都是有数的，只要对这些地方重点使用C&P大法，效率会更高。
五、除了500错误之外，更难查找的是逻辑错误
查找逻辑错误只有靠设断点，观察变量值来判断错误的可能之处，这时候error这个函数又有用了，你可以方便的用它来设断点和观察变量的值，只要在想设断点的地方调用它就可以了，再把它的两个参数设为你想观察的变量，如&error("abc:$abc","def:$def");将中断程序执行并输出$abc和$def的值供参考。
在实际的CGI编程中，有很多错误跟由表单提交来的数据源有很大的关系，因此，查找逻辑错误时首先就要检查程序是否正确的接收了表单数据，下面的程序段就是用于显示所有表单提交给程序的数据：
&GetForm;
&ViewForm;
################
#显示Form数据 #
################
sub ViewForm{
&Header ('','表单');
foreach $key (keys %FORM){
print "$key:$FORM{$key}";
print '<p>';
}
exit 0;
}
################
#取得Form数据 #
################
sub GetForm{
@querys = split(/&/, $ENV{'QUERY_STRING'});
foreach (@querys) {
($name,$value) = split(/=/, $_);
&SetValueToForm($name, $value);
}
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach (@pairs) {
($name, $value) = split(/=/, $_);
&SetValueToForm($name, $value);
}
}
################
#为$FORM赋值 #
################
sub SetValueToForm {
$name=$_[0];
$value=$_[1];
$name=&Decode($name);
$value=&Decode($value);
if ($FORM{$_[0]}) {
$FORM{$_[0]}="$FORM{$_[0]}⧤_[1]";}
else {$FORM{$_[0]}=$_[1];}
}
##############
#译码 #
##############
sub Decode {
my ($code)=$_[0];
$code =~ tr/+/ /;
$code =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
return $code;
}
你可以把这里的几个自定义的函数都放在程序的结尾，在程序的开头都写上
&GetForm;
#&ViewForm;
#&error('调试','程序头');
你会发现它们对你调试程序有很大的帮助。
联网调试CGI程序心得
供稿：用户供稿 ┆ 来源：启航网 ┆ 阅读： ┆ 更新：2007-4-23 9:41:55
初学用PERL写CGI程序，也找了个PERL的调试器PERL DEBUGGER来用，但好象对中文WINDOWS支持有问题，代码区总是一片混乱，一气之下就直接上网调试，一番头破血流下来，也积累了一些心得，写出来供跟我一样正在学习PERL的CGI编程的朋友们参考。
CGI程序最常见的错误就是500 Internal Server Error，对于这个错误提示，可以按以下步骤查找原因。
一、检查CGI程序的属性，一定要设为755才可以。
二、检查一下是不是用了BINARY方式上传，CGI程序一定要用ASCII方式上传。建议在所用的FTP软件里把.cgi,.pl都设定为使用ASCII方式，并且把连接选项里的上传方式设为AUTO。
三、如果上面两项都没有问题，那就是程序本身有语法问题，常见的语法问题有以下一些：
１。没有指定perl解释器的位置
程序的第一行必须是服务器上PERL解释器的位置，一般是#!/usr/bin/perl
２。在输出前没有先输出一个http头
CGI程序必须告诉浏览器，这以后的输出将作为一个HTML文档来对待建议将这个语句作为一个函数，在输出前调用之，下面是一个例子。
sub Head {
print "Content-type: text/htmlnn";
}
３。某语句少写了分号
４。括号、引号等不配套
常见的是少写一边，或者单双引号混用了（毕竟都是一个键啊）还有就是多写了引号，我在把DW里生成的HTML代码COPY到程序里时就经常犯这个错误比如 print "<img src=xxx.gif width="40" height="16">";这样的语句
５。给变量赋了非法的值
如$mail="xxx@xxx.com";就是一个非法的赋值应该写成$cgiurl="xxx@sina.com";或者使用单引号。
四、遇到上面３、４、５这样的情况，最主要的工作就是定位有问题的语句我所用的方法是这样的。
################
# 错误处理 #
################
sub error {
&Header('错误',"错误:$_[0]");
print "$_[1]";
&Tailer;
exit 0;
}
##################
# HTML 页面头部 #
##################
sub Header {
my ($title,$header) = @_;
print "Content-type: text/htmlnn";
print "<html><head><title>$title</title></head>n";
print "<meta http-equiv="Content-Type" content="text/html; charset=gb2312">n";
print "<center><h2>$header</h2></center><dir>n";
}
#################
# HTML 页面尾部 #
#################
sub Tailer {
print "</body></html>";
}
将上面这个错误处理函数放在程序的最尾部，而在程序的最前面就调用它
&error('调试','程序头');
平时将这一句注释掉，出现500错时将注释去掉，然后就可以使用Cut&Paste大法来查找错误语句了。具体方法是这样的：
１）先把&error()这一句到错误处理函数之间的语句Cut掉，上传执行，这样应该肯定能执行。此时应显示“错误：调试”和“程序头”字样。
２）将语句Paste回来，选取一半左右的语句Cut掉，当然要注意保持函数、循环的完整性，上传，看是否能够执行。
３）若能执行，有问题的语句一定在被Cut掉的那一半里，若不能执行，起码剩下的这一半语句就有问题。
４）这样反复Cut&Paste，很快就能找到错误语句的位置
其实实际运用中并不一定如此死板，一般来说自己改过什么地方以后才出的错心中都是有数的，只要对这些地方重点使用C&P大法，效率会更高。
五、除了500错误之外，更难查找的是逻辑错误
查找逻辑错误只有靠设断点，观察变量值来判断错误的可能之处，这时候error这个函数又有用了，你可以方便的用它来设断点和观察变量的值，只要在想设断点的地方调用它就可以了，再把它的两个参数设为你想观察的变量，如&error("abc:$abc","def:$def");将中断程序执行并输出$abc和$def的值供参考。
在实际的CGI编程中，有很多错误跟由表单提交来的数据源有很大的关系，因此，查找逻辑错误时首先就要检查程序是否正确的接收了表单数据，下面的程序段就是用于显示所有表单提交给程序的数据：
&GetForm;
&ViewForm;
################
#显示Form数据 #
################
sub ViewForm{
&Header ('','表单');
foreach $key (keys %FORM){
print "$key:$FORM{$key}";
print '<p>';
}
exit 0;
}
################
#取得Form数据 #
################
sub GetForm{
@querys = split(/&/, $ENV{'QUERY_STRING'});
foreach (@querys) {
($name,$value) = split(/=/, $_);
&SetValueToForm($name, $value);
}
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach (@pairs) {
($name, $value) = split(/=/, $_);
&SetValueToForm($name, $value);
}
}
################
#为$FORM赋值 #
################
sub SetValueToForm {
$name=$_[0];
$value=$_[1];
$name=&Decode($name);
$value=&Decode($value);
if ($FORM{$_[0]}) {
$FORM{$_[0]}="$FORM{$_[0]}⧤_[1]";}
else {$FORM{$_[0]}=$_[1];}
}
##############
#译码 #
##############
sub Decode {
my ($code)=$_[0];
$code =~ tr/+/ /;
$code =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
return $code;
}
你可以把这里的几个自定义的函数都放在程序的结尾，在程序的开头都写上
&GetForm;
#&ViewForm;
#&error('调试','程序头');
你会发现它们对你调试程序有很大的帮助。
