perl编写CGI 尝试

概述一直觉得perl写网页是一件很原始的事情，编写CGI-使用perl的书刚借来就弄丢了。后来帮群里的小朋友讨论到CGI，觉得有点意思，就尝试学了一下，编写了一个简单的，保存邮件列表，和现实邮件列表的就简单CGI，如下： #!/opt/lampp/bin/perluse CGI;use Data::Dumper;use Storable;my @values=('CharityBase','L 一直觉得perl写网页是一件很原始的事情，编写CGI-使用perl的书刚借来就弄丢了。后来帮群里的小朋友讨论到CGI，觉得有点意思，就尝试学了一下，编写了一个简单的，保存邮件列表，和现实邮件列表的就简单CGI，如下：

#!/opt/lampp/bin/perluse 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",);	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编写CGI 尝试全部内容，希望文章能够帮你解决perl编写CGI 尝试所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。