| 联网调试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="xxx@xxx.com";就是一个非法的赋值，应该写成$cgiurl="xxx@sina.com";或者使用单引号。 四、碰到上面３、４、５这样的情况，最主要的工作就是定位有问题的语句。 我所用的方法是这样的。 ################ # 错误处理 # ################ sub error { &Header(''错误'',"错误:  print " &Tailer; exit 0; } ################## # HTML 页面头部 # ################## sub Header { my ($title,$header) = @_; print "Content-type: text/htmlnn"; print "n"; print "n"; print " $header} ################# # 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){ "$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= $value= $name=&Decode($name); $value=&Decode($value); if ($FORM{ $FORM{ else {$FORM{ } ############## #译码 # ############## sub Decode { my ($code)= $code =~ tr/+/ /; $code =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; return $code; } 你可以把这里的几个自定义的函数都放在程序的结尾，在程序的开头都写上 &GetForm; #&ViewForm; #&error(''调试'',''程序头''); 你会发现它们对你调试程序有很大的帮助。 |
联网调试CGI程序心得
作者：凯旋网络来源：凯旋网络