用Perl制作留言本实例之三
敬业的IT人
互联网
佚名
2008-1-11 9:40:49
这个程序相当简陋，但它具有了所有的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语言的文字处理模式之三(3)[01-11]
- 本地调试PERL CGI程序之二[01-11]
- 利用Perl开发Internet/Intranet应用之二(..[01-11]
- 本地调试PERL CGI程序之一[01-11]
- 利用Perl开发Internet/Intranet应用之二(..[01-11]
- 利用Perl开发Internet/Intranet应用之二(..[01-11]
- 相关文章
