您的位置:首页精文荟萃软件资讯 → 联网调试CGI程序心得

联网调试CGI程序心得

时间:2004/10/7 19:13:00来源:本站整理作者:蓝点我要评论(0)


            
             
              
             
            

               
               

            



            




联网调试CGI程序心得
  初学用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到程序里时就经常犯这个错误。
  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 "n";
  print "n";
  print "

$header

n";
  }

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

  将上面这个错误处理函数放在程序的最尾部,而在程序的最前面就调用它,&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 '
';
  }
  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('调试','程序头');

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

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3

最新文章 微信3.6.0测试版更新了微信支付漏洞会造成哪 360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本