初学用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('调试','程序头');
你会发现它们对你调试程序有很大的帮助。
