联网调试CGI程序心得

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

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

 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一页 1 2下一页

上一篇：Perl在CGI程序设计中常用的函数和指令   下一篇：perl模块和包的使用

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】