分享
 
 
 

联网调试CGI程序心得

王朝other·作者佚名  2008-06-01
窄屏简体版  字體: |||超大  

联网调试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 "

$headern";

}

#################

# 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('调试','程序头');

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有