 |
积木首页 | 500多种网页特效 | 函数手册 | 广播电台 | 高清晰图片素材 | 服务器合租 | 万年历 | 网友最新浏览记录 |  |
| 程序开发 |  |
网页设计 | |
搜索引擎 | |
特效代码 | |
操作系统 | |
防范病毒 | |
黑客技术 | |
图形图象 | |
电脑硬件 | |
网络技术 | |
服 务 器 | |
数 据 库 | |
网文精粹 |
您的位置：标题：用Perl制作留言本实例之三
时间：2005-4-16 来源：不详 浏览数：次
这个程序相当简陋，但它具有了所有的CGI-Guest程序的特点，
我们一一分析如下：
首先，
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'})；
@pairs=split(/&/,$buffer);
foreach $pair(@pairs){
($name,$value)=split(/=/,$pair);
$value=~tr/+//;
$value=~s/%([a-f A-F 0-9][a-f A-F 0-9])/pack("C",hex($1)
)/eg;
$FORM{$name}=$value;
}
这是一段表单分析的语句，在前面的程序里，估计大家也都见过
了。
其次：
foreach $check(values%FORM){
if($check eq""){
print"----------------------------------------------------------------";
print"请不要留空";
exit(0);
}
}
做输入字段的检查，看看是否有留空的现象。从前这种任务都是
要CGI程序来验证的，比如email是否输入的是mail地址等检查。不过现
在我们可以通过javascript来做这样的检查，这样服务器的负担将大大
减轻。
（责任编辑：欣欣裴）
我们一一分析如下：
首先，
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'})；
@pairs=split(/&/,$buffer);
foreach $pair(@pairs){
($name,$value)=split(/=/,$pair);
$value=~tr/+//;
$value=~s/%([a-f A-F 0-9][a-f A-F 0-9])/pack("C",hex($1)
)/eg;
$FORM{$name}=$value;
}
这是一段表单分析的语句，在前面的程序里，估计大家也都见过
了。
其次：
foreach $check(values%FORM){
if($check eq""){
print"----------------------------------------------------------------";
print"请不要留空";
exit(0);
}
}
做输入字段的检查，看看是否有留空的现象。从前这种任务都是
要CGI程序来验证的，比如email是否输入的是mail地址等检查。不过现
在我们可以通过javascript来做这样的检查，这样服务器的负担将大大
减轻。
（责任编辑：欣欣裴）
其他文章
- 上一篇文章： 用Perl制作留言本实例之二
- 下一篇文章： 用Perl制作留言本实例之四
相关文章
最近更新
今日推荐
热点文章