聯網調試CGI程序心得初學用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到程序里時就經常犯這個錯誤。
５。給變量賦了非法的值
如$mail="[email protected]";就是一個非法的賦值，應該寫成$cgiurl="[email protected]";或者使用單引號。

四、遇到上面３、４、５這樣的情況，最主要的工作就是定位有問題的語句。
我所用的方法是這樣的。

################
# 錯誤處理 #
################
sub error {
&Header('錯誤',"錯誤:$_[0]");
print "$_[1]";
&Tailer;
exit 0;
}

##################
# HTML 頁面頭部 #
##################
sub Header {
my ($title,$header) = @_;

print "Content-type: text/htmlnn";
print "n";
print "n";
print " $headern";
}

#################
# HTML 頁面尾部 #
#################
sub Tailer {
print "";
}

將上面這個錯誤處理函數放在程序的最尾部，而在程序的最前面就調用它，&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 '
';
}
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('調試','程序頭');

你會發現它們對你調試程序有很大的幫助。