明輝手游網(wǎng)中心:是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)!

聯(lián)網(wǎng)調(diào)試CGI程序心得

[摘要]聯(lián)網(wǎng)調(diào)試CGI程序心得初學(xué)用PERL寫CGI程序,也找了個(gè)PERL的調(diào)試器PERL DEBUGGER來(lái)用,但好象對(duì)中文WINDOWS支持有問題,代碼區(qū)總是一片混亂,一氣之下就直接上網(wǎng)調(diào)試,一番頭破血流下來(lái),也積累了一些心得,寫出來(lái)供跟我一樣正在學(xué)習(xí)PERL的CGI編程的朋友們參考。CGI程序最常見...

聯(lián)網(wǎng)調(diào)試CGI程序心得初學(xué)用PERL寫CGI程序,也找了個(gè)PERL的調(diào)試器PERL DEBUGGER來(lái)用,但好象對(duì)中文WINDOWS支持有問題,代碼區(qū)總是一片混亂,一氣之下就直接上網(wǎng)調(diào)試,一番頭破血流下來(lái),也積累了一些心得,寫出來(lái)供跟我一樣正在學(xué)習(xí)PERL的CGI編程的朋友們參考。
CGI程序最常見的錯(cuò)誤就是500 Internal Server Error,對(duì)于這個(gè)錯(cuò)誤提示,可以按以下步驟查找原因。

一、檢查CGI程序的屬性,一定要設(shè)為755才可以。

二、檢查一下是不是用了BINARY方式上傳,CGI程序一定要用ASCII方式上傳。建議在所用的FTP軟件里把.cgi,.pl都設(shè)定為使用ASCII方式,并且把連接選項(xiàng)里的上傳方式設(shè)為AUTO。

三、如果上面兩項(xiàng)都沒有問題,那就是程序本身有語(yǔ)法問題,常見的語(yǔ)法問題有以下一些:
1。沒有指定perl解釋器的位置,程序的第一行必須是服務(wù)器上PERL解釋器的位置,一般是#!/usr/bin/perl
2。在輸出前沒有先輸出一個(gè)http頭CGI程序必須告訴瀏覽器,這以后的輸出將作為一個(gè)HTML文檔來(lái)對(duì)待,建議將這個(gè)語(yǔ)句作為一個(gè)函數(shù),在輸出前調(diào)用之,下面是一個(gè)例子。
sub Head {
print “Content-type: text/htmlnn”;
}
3。某語(yǔ)句少寫了分號(hào)
4。括號(hào)、引號(hào)等不配套,常見的是少寫一邊,或者單雙引號(hào)混用了(畢竟都是一個(gè)鍵。有就是多寫了引號(hào),我在把DW里生成的HTML代碼COPY到程序里時(shí)就經(jīng)常犯這個(gè)錯(cuò)誤。
5。給變量賦了非法的值
如$mail="xxx@xxx.com";就是一個(gè)非法的賦值,應(yīng)該寫成$cgiurl="xxx@sina.com";或者使用單引號(hào)。

四、遇到上面3、4、5這樣的情況,最主要的工作就是定位有問題的語(yǔ)句。
我所用的方法是這樣的。

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

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

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

#################
# HTML 頁(yè)面尾部 #
#################
sub Tailer {
print "";
}

將上面這個(gè)錯(cuò)誤處理函數(shù)放在程序的最尾部,而在程序的最前面就調(diào)用它,&error('調(diào)試','程序頭');平時(shí)將這一句注釋掉,出現(xiàn)500錯(cuò)時(shí)將注釋去掉,然后就可以使用Cut&Paste大法來(lái)查找錯(cuò)誤語(yǔ)句了。具體方法是這樣的:
1)先把&error()這一句到錯(cuò)誤處理函數(shù)之間的語(yǔ)句Cut掉,上傳執(zhí)行,這樣應(yīng)該肯定能執(zhí)行。此時(shí)應(yīng)顯示“錯(cuò)誤:調(diào)試”和“程序頭”字樣。
2)將語(yǔ)句Paste回來(lái),選取一半左右的語(yǔ)句Cut掉,當(dāng)然要注意保持函數(shù)、循環(huán)的完整性,上傳,看是否能夠執(zhí)行。
3)若能執(zhí)行,有問題的語(yǔ)句一定在被Cut掉的那一半里,若不能執(zhí)行,起碼剩下的這一半語(yǔ)句就有問題。
4)這樣反復(fù)Cut&Paste,很快就能找到錯(cuò)誤語(yǔ)句的位置。
其實(shí)實(shí)際運(yùn)用中并不一定如此死板,一般來(lái)說(shuō)自己改過什么地方以后才出的錯(cuò)心中都是有數(shù)的,只要對(duì)這些地方重點(diǎn)使用C&P大法,效率會(huì)更高。

五、除了500錯(cuò)誤之外,更難查找的是邏輯錯(cuò)誤
查找邏輯錯(cuò)誤只有靠設(shè)斷點(diǎn),觀察變量值來(lái)判斷錯(cuò)誤的可能之處,這時(shí)候error這個(gè)函數(shù)又有用了,你可以方便的用它來(lái)設(shè)斷點(diǎn)和觀察變量的值,只要在想設(shè)斷點(diǎn)的地方調(diào)用它就可以了,再把它的兩個(gè)參數(shù)設(shè)為你想觀察的變量,如&error("abc:$abc","def:$def");將中斷程序執(zhí)行并輸出$abc和$def的值供參考。
在實(shí)際的CGI編程中,有很多錯(cuò)誤跟由表單提交來(lái)的數(shù)據(jù)源有很大的關(guān)系,因此,查找邏輯錯(cuò)誤時(shí)首先就要檢查程序是否正確的接收了表單數(shù)據(jù),下面的程序段就是用于顯示所有表單提交給程序的數(shù)據(jù):

&GetForm;
&ViewForm;

################
#顯示Form數(shù)據(jù) #
################
sub ViewForm{
&Header ('','表單');
foreach $key (keys %FORM){
print
"$key:$FORM{$key}";
print '
';
}
exit 0;
}
################
#取得Form數(shù)據(jù) #
################
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;
}

你可以把這里的幾個(gè)自定義的函數(shù)都放在程序的結(jié)尾,在程序的開頭都寫上

&GetForm;
#&ViewForm;
#&error('調(diào)試','程序頭');

你會(huì)發(fā)現(xiàn)它們對(duì)你調(diào)試程序有很大的幫助。