PERL-MOJO写一个简单的登录验证页面

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;
%};