叶子树logo
首 页 技术教程 新闻资讯 网站展示 酷站欣赏 下载中心 站长故事 字体下载 图片素材
Web www.webshu.net
 
  最新推荐→

 
  最新热门→

 
  相关文章→
 您现在的位置: 叶子树 >> 技术教程 >> 网络编程 >> CGIperl教程 >> 正文

联网调试CGI程序心得

作者:佚名    文章来源:不详    点击数:    更新时间:2008-4-11         

 

<% if request("infoid")<>"" then set rs=conn.execute("select * from nproduct where id="&request("infoid")) if not (rs.eof and rs.bof) then proname=rs("proname") content=rs("proinfo") end if rs.close set rs=nothing end if %>
初学用PERL写CGI程序,也找了个PERL的调试器PERL DEBUGGER来用,但好象对中文WINDOWS支持有问题,代码区总是一片混乱,一气之下就直接上网调试,一番头破血流下来,也积累了一些心得,写出来供跟我一样正在学习PERL的CGI编程的朋友们参考。

CGI程序最常见的错误就是500 Internal Server Error,对于这个错误提示,可以按以下步骤查找原因。

一、检查CGI程序的属性,一定要设为755才可以。

二、检查一下是不是用了BINARY方式上传,CGI程序一定要用ASCII方式上传。建议在所用的FTP软件里把.cgi,.pl都设定为使用ASCII方式,并且把连接选项里的上传方式设为AUTO。

三、如果上面两项都没有问题,那就是程序本身有语法问题,常见的语法问题有以下一些:

  1。没有指定perl解释器的位置
     程序的第一行必须是服务器上PERL解释器的位置,一般是#!/usr/bin/perl

  2。在输出前没有先输出一个http头
     CGI程序必须告诉浏览器,这以后的输出将作为一个HTML文档来对待建议将这个语句作为一个函数,在输出前调用之,下面是一个例子。
     sub Head {
    print "Content-type: text/htmlnn";
     }

  3。某语句少写了分号
  
   4。括号、引号等不配套
     常见的是少写一边,或者单双引号混用了(毕竟都是一个键啊)还有就是多写了引号,我在把DW里生成的HTML代码COPY到程序里时就经常犯这个错误比如print "<img src=xxx.gif width="40" height="16">";这样的语句

  5。给变量赋了非法的值
     如$mail="xxx@xxx.com";就是一个非法的赋值应该写成$cgiurl="xxx@sina.com";或者使用单引号。

四、遇到上面3、4、5这样的情况,最主要的工作就是定位有问题的语句我所用的方法是这样的。

  ################
   # 错误处理 #
   ################
   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大法来查找错误语句了。具体方法是这样的:

  1)先把&error()这一句到错误处理函数之间的语句Cut掉,上传执行,这样应该肯定能执行。此时应显示“错误:调试”和“程序头”字样。
   2)将语句Paste回来,选取一半左右的语句Cut掉,当然要注意保持函数、循环的完整性,上传,看是否能够执行。
   3)若能执行,有问题的语句一定在被Cut掉的那一半里,若不能执行,起码剩下的这一半语句就有问题。
   4)这样反复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('调试','程序头');

你会发现它们对你调试程序有很大的帮助。

叶子树:www.webshu.net
  • 下一篇文章:

  • 文章录入:webshu    责任编辑:webshu 
    叶子树(www.webshu.net)所有资料源于作者发布或网友推荐收集整理而来,仅供学习使用,版权归原作者所有,如有侵权,请您联系我们,我们将尽快更正。

      网友评论:(评论内容只代表网友观点,与本站立场无关!) 发表评论

    网站地图 | 友情链接 | 留言互动 | 版权声明
    Copyright©All return the ye ze shu and www.webshu.net
    本站广告服务请加QQ:904166(超越-激情)
    京ICP备08103660号 把"叶子树" 与你的好友一起分享!