一个简单的CGI module

zhang1120

最近webapp做的比较多, 就顺手写了个CGI module用来代替CPAN CGI module
用法和CPAN CGI module是一样的:

Usage:
#Create a new object.
my $cgi = new MyCGI;

#print a http header.
print $cgi->header(-charset=>'utf-8',-cookie=>$cookie,-type=>'text/html');

#Send a redirect header.
print $cgi->redirect("$url");

#get submitted value.
my $value = $cgi->param('name');

#get cookie values.
my $cookie = $cgi->cookie('name');

#create a new cookie
my $cookie = $cgi->newCookie(-name=>'name',-value=>'value',expires=>'+1[yMdms]');

这些function对大部分的webapp是足够了. 有兴趣的同学可以参考一下

zhang1120

刚检查了下,上传的程序有点错误, 第33行
foreach(@cookies)
应该改为:
foreach(@pairs)

dajun

1. 
   
2. __DATA__
   
3. Usage:
   
4. #Create a new object.
   
5. my $cgi = new MyCGI;
   
6. 
   

复制代码

你这也太弓虽了.

zhang1120

这个版本比较原始, __DATA__是刚才顺手加上去的.
改成__END__好了.

DennisRitchie

原帖由 zhang1120 于 2007-8-23 16:07 发表
最近webapp做的比较多, 就顺手写了个CGI module用来代替CPAN CGI module
用法和CPAN CGI module是一样的:

Usage:
#Create a new object.
my $cgi = new MyCGI;

#print a http header.
print $cgi->header(-charset=>'utf-8',-cookie=>$cookie,-type=>'text/html');

#Send a redirect header.
print $cgi->redirect("$url");

#get submitted value.
my $value = $cgi->param('name');

#get cookie values.
my $cookie = $cgi->cookie('name');

#create a new cookie
my $cookie = $cgi->newCookie(-name=>'name',-value=>'value',expires=>'+1[yMdms]');

这些function对大部分的webapp是足够了. 有兴趣的同学可以参考一下

支持，但是有一个问题：程序里面的-是干嘛用的？？

royalzhang

自己已经删除了

[ 本帖最后由 royalzhang 于 2007-8-23 21:33 编辑 ]