perl编写CGI 尝试
2013-05-25 15:50
183 查看
一直觉得perl写网页是一件很原始的事情,编写CGI-使用perl的书刚借来就弄丢了。后来帮群里的小朋友讨论到CGI,觉得有点意思,就尝试学了一下,编写了一个简单的,保存邮件列表,和现实邮件列表的就简单CGI,如下:
#!/opt/lampp/bin/perl use CGI; use Data::Dumper; use Storable; my @values=('CharityBase','Linux kernel mailing list','MailChimp','Melissa Data'); our $q = CGI->new(); my $name =$q->param("name"); my $mail=$q->param("mail"); my $list=$q->param("organnisation"); print $q->header; print $q->start_html({-title=>"Join a Mainlist"} ); if($q->param("all") ) { #display name list my $allhash1 = retrieve('datafile'); print $q->h1( {-align => 'CENTER' },'This all mail list!'); foreach $tmp1 (@values) { print $q->h3("$tmp1"); my $firstlist= $allhash1->{$tmp1}; foreach (@$firstlist){ printf $q->ul( $q->li("%s (%s)") ), $_->{name},$_->{mail}; } } } else { if ($q->param('submit') ){ if(-s 'datafile' == 0){ my $tmphash={}; foreach my $key (@values) { $tmphash->{$key}=[]; } store $tmphash,'datafile'; } my $allhash = retrieve('datafile'); my $element = { name =>$name, mail =>$mail, }; push @{$allhash->{$list}}, $element; store $allhash,'datafile'; } print $q->h1( { -align => 'CENTER' }, "Sign Up Free!" ); print $q->start_multipart_form({-action=>"test.cgi",-method=>"POST"}); print $q->p('Please Enter your name', $q->textfield({-name=>"name",-value=>''}),); print $q->p('Please Enter your mail', $q->textfield({-name=>"mail",-value=>''}),); print $q->p('Please choose:',$q->popup_menu({-name=>'organnisation',-values=>\@values, }),); print $q->p( $q->submit({-name=>"submit",-value=>'submit'}), $q->reset({-name=>"reset",-value=>'clear'}), $q->submit({-name=>"all",-value=>'show all list '}), ); print $q->end_form(); } print $q->end_html;
相关文章推荐
- Perl & Python编写CGI
- Perl & Python编写CGI
- Linux环境下使用perl编写CGI(httpd)
- 使用Perl编写CGI程序(前后端)
- Apache环境下 如何运行Perl写的cgi
- 用Delphi编写CGI程序(五)
- Perl多进程程序的编写
- IIS + ActivePerl + CGI 环境搭建
- 用VB编写标准CGI程序
- perl-cgi高级
- Tomcat 配置CGI perl
- 编写SqlHelper使用,在将ExecuteReader方法封装进而读取数据库中的数据时会产生Additional information: 阅读器关闭时尝试调用 Read 无效问题,解决方法与解释
- 编写CGI小结(Java)
- How to Add Perl CGI Script Support to Your Apache Server on Windows
- 用C语言编写FC游戏的尝试
- 编程菜鸟的日记-初学尝试编程-编写函数实现strcmp功能
- nginx环境下配置nagios-关于start_perl_cgi.sh
- perl-cgi高级
- Perl调用网页的cgi程序
- 用Perl编写Apache模块续二 - SVN动态鉴权实现SVNAuth 禅道版