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