| 聯(lián)網(wǎng)調(diào)試CGI程序心得 |
| 初學(xué)用PERL寫CGI程序，也找了個PERL的調(diào)試器PERL DEBUGGER來用，但好象對中文WINDOWS支持有問題，代碼區(qū)總是一片混亂，一氣之下就直接上網(wǎng)調(diào)試，一番頭破血流下來，也積累了一些心得，寫出來供跟我一樣正在學(xué)習(xí)PERL的CGI編程的朋友們參考。 CGI程序最常見的錯誤就是500 Internal Server Error，對于這個錯誤提示，可以按以下步驟查找原因。 一、檢查CGI程序的屬性，一定要設(shè)為755才可以。 二、檢查一下是不是用了BINARY方式上傳，CGI程序一定要用ASCII方式上傳。建議在所用的FTP軟件里把.cgi,.pl都設(shè)定為使用ASCII方式，并且把連接選項(xiàng)里的上傳方式設(shè)為AUTO。 三、假如上面兩項(xiàng)都沒有問題，那就是程序本身有語法問題，常見的語法問題有以下一些： １。沒有指定perl解釋器的位置，程序的第一行必須是服務(wù)器上PERL解釋器的位置，一般是#!/usr/bin/perl ２。在輸出前沒有先輸出一個http頭CGI程序必須告訴瀏覽器，這以后的輸出將作為一個Html文檔來對待，建議將這個語句作為一個函數(shù)，在輸出前調(diào)用之，下面是一個例子。 sub Head { PRint “Content-type: text/htmlnn”; } ３。某語句少寫了分號 ４。括號、引號等不配套，常見的是少寫一邊，或者單雙引號混用了（究竟都是一個鍵啊），還有就是多寫了引號，我在把DW里生成的HTML代碼COPY到程序里時就經(jīng)常犯這個錯誤。 ５。給變量賦了非法的值 如$mail="[email protected]";就是一個非法的賦值，應(yīng)該寫成$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 " $header} ################# # HTML 頁面尾部 # ################# sub Tailer { print ""; } 將上面這個錯誤處理函數(shù)放在程序的最尾部，而在程序的最前面就調(diào)用它，&error('調(diào)試','程序頭');平時將這一句注釋掉，出現(xiàn)500錯時將注釋去掉，然后就可以使用Cut&Paste大法來查找錯誤語句了。具體方法是這樣的： １）先把&error()這一句到錯誤處理函數(shù)之間的語句Cut掉，上傳執(zhí)行，這樣應(yīng)該肯定能執(zhí)行。此時應(yīng)顯示“錯誤：調(diào)試”和“程序頭”字樣。 ２）將語句Paste回來，選取一半左右的語句Cut掉，當(dāng)然要注重保持函數(shù)、循環(huán)的完整性，上傳，看是否能夠執(zhí)行。 ３）若能執(zhí)行，有問題的語句一定在被Cut掉的那一半里，若不能執(zhí)行，起碼剩下的這一半語句就有問題。 ４）這樣反復(fù)Cut&Paste，很快就能找到錯誤語句的位置。 其實(shí)實(shí)際運(yùn)用中并不一定如此死板，一般來說自己改過什么地方以后才出的錯心中都是有數(shù)的，只要對這些地方重點(diǎn)使用C&P大法，效率會更高。 五、除了500錯誤之外，更難查找的是邏輯錯誤 查找邏輯錯誤只有靠設(shè)斷點(diǎn)，觀察變量值來判定錯誤的可能之處，這時候error這個函數(shù)又有用了，你可以方便的用它來設(shè)斷點(diǎn)和觀察變量的值，只要在想設(shè)斷點(diǎn)的地方調(diào)用它就可以了，再把它的兩個參數(shù)設(shè)為你想觀察的變量，如&error("abc:$abc","def:$def");將中斷程序執(zhí)行并輸出$abc和$def的值供參考。 在實(shí)際的CGI編程中，有很多錯誤跟由表單提交來的數(shù)據(jù)源有很大的關(guān)系，因此，查找邏輯錯誤時首先就要檢查程序是否正確的接收了表單數(shù)據(jù)，下面的程序段就是用于顯示所有表單提交給程序的數(shù)據(jù)： &GetForm; &ViewForm; ################ #顯示Form數(shù)據(jù) # ################ sub ViewForm{ &Header ('','表單'); foreach $key (keys %FORM){ "$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; } 你可以把這里的幾個自定義的函數(shù)都放在程序的結(jié)尾，在程序的開頭都寫上 &GetForm; #&ViewForm; #&error('調(diào)試','程序頭'); 你會發(fā)現(xiàn)它們對你調(diào)試程序有很大的幫助。 |
新聞熱點(diǎn)
疑難解答
