PERL果然是很牛掰的东西。。。 失业三年半了。还是想keep一下perl的兴趣。
use Mojolicious::Lite; my $password='1253'; get '/login' => sub { my $self = shift; $self->render('login'); }; post '/login' => sub { my $self = shift; $self->render('loged', pwd=>$password, ); }; get 'loged' => sub { my $self = shift; $self->render('loged', pwd=>$password, ); }; get logOut => sub { my $self = shift; $self->session->{login}=0; $self->render('login'); }; app->start; __DATA__ @@ login.html.ep <marquee DIRECTION=down loop=1 BEHAVIOR=alternate SCROLLDELAY=1> <FORM ACTION='login' METHOD='POST'> <TABLE height=90 width=160 align=center > <TD align=center bgColor=#000000 > <INPUT type=password maxLength=10 size=10 name=password>: <INPUT id=login type=submit value='login' name=login> </TD></TABLE></FORM></marquee> @@loged.html.ep % my $apw=param 'password'; % my $login=session 'login'; % if ($login ==1 ) { welcome! <a href="logOut"> Log Out1</a> %} elsif ($pwd == $apw) { % session->{login}=1; welcome! <a href="logOut"> Log Out2</a> %} else { <a href="login"> ReLog</a> %=session 'password'; %=param 'password'; %=session 'login' ; %=$pwd; %};
转载于:https://blog.51cto.com/rzl01/1580182