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=http://www.mamicode.com/‘login‘ name=login>  "logOut"> Log Out1</a>
%} elsif ($pwd == $apw) {
% session->{login}=1;
welcome!
<a href="http://www.mamicode.com/logOut"> Log Out2</a>
%}  else { 
<a href="http://www.mamicode.com/login"> ReLog</a> 
%=session ‘password‘;  
%=param ‘password‘;
%=session ‘login‘ ; 
%=$pwd;
%};

本文出自 “RZL_01的博客” 博客，请务必保留此出处http://rzl01.blog.51cto.com/3004337/1580182

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