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('调试','程序头');
你会发现它们对你调试程序有很大的帮助。
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
