Perl 的 Web 框架魔咒 (Mojolicious) 的中文网站-本帖回帖答疑

hutong236

扶凯,又麻烦你了,
我看Mojocast #3: Authentication, Helpers, and Plugins 视频,里有段代码测试和上面结果不一样.
按视频上输入的username为"aaa"或是password="bbb",都能跳到"$self->render(text => 'Welcome to Moncorp1'); ",但是我测试结果
输入的username不为"aaa"或不是password="bbb",都能跳到"$self->render(text => 'Welcome to Moncorp1');",怎么都不显示"$self->render(text => 'denied')",不知道是我那里搞错了?
谢谢!

1. #!/usr/bin/perl -w.
   
2. use Mojolicious::Lite;
   
3. 
   
4. get '/login' => sub {shift->render('login')};
   
5. 
   
6. 
   
7. post '/momcorp' => sub {
   
8.         my $self = shift;
   
9.         print $self->param('password'),"\n";
   
10.         $self->render(text => 'denied') if
    
11.           $self->param('username') ne 'aaa' or
    
12.           $self->param('password') ne 'bbb';
    
13.         $self->render(text => 'Welcome to Moncorp1');
    
14. };
    
15. 
    
16. app->start;
    
17. @@ login.html.ep
    
18. <h1>Login</h1>
    
19. <form method="post" action="/momcorp">
    
20.         Username:<input type="text" name="username" />
    
21.         Password:<input type="text" name="password" />
    
22.         <input type="submit" value="Login" />
    
23. </form>
    

复制代码

gzadsluser

回复 61# hutong236


    两个render肯定是显示最后一个啦，验证失败要立即return，否则最后一句还是会执行。

hutong236

gzadsluser 发表于 2013-09-02 01:12
回复 61# hutong236

但是我看人家视频上都没有加return,测试也过啊.
只是后面加了以下代码,换成条件and就行了.

1. 
   
2. under sub {
   
3.         my $self = shift;
   
4.         return 1 if $self->params_auth( username => password => sub{
   
5.         return 1 if "@_" eq 'aaa bbb'
   
6.         });
   
7. 
   
8.         $self->render(text => 'denied');
   
9.         return;
   
10. };
    
11. 
    
12. post '/momcorp' => sub {
    
13.         my $self = shift;
    
14.         $self->render(text => 'denied') if $self->params_auth( username => password => sub{
    
15.                 return 1 if "@_" eq 'aaa bbb'
    
16.         });
    
17.         $self->render(text => 'Welcome to Moncorp1');
    
18. };

复制代码

iakuf

回复 63# hutong236

gzadsluser 讲得对,  两个 render 肯定是显示最后一个


   

snriyt

回复 1# iakuf


    假设如下语句：

$res = db->query(xxx);
$self->render(msg=>$res);

模板里面

%= $msg

会是乱码。但是如果加上
% use Encode;
%= decode_utf8($msg)
则输出正常。
推测应当是mojo在render的时候对传入的数据进行了encode。如果不让它自动encode？

iakuf

回复 65# snriyt
数据库连接的时候设置了 mysql_enable_utf8 没?
另外,在写程序的时候,可以直接在程序的 Controller 中前面加上

1. use utf8;

复制代码

有关语言的东西,在 Mojo 的 Wiki 中提到过.链接如下
How to work with UTF-8?

snriyt

回复 66# iakuf


    3qs,我试试

iakuf

回复 67# snriyt
有结果记得回复,也好告诉大家能不能解决.

   

snriyt

好吧，的确能解决，不过必须

1. my $dbh = DBI->connect($data_source, undef, undef, {sqlite_unicode => 1});

复制代码

下面就行不通的

1. my $dbh = DBI->connect($data_source);
   
2. $dbh-> {sqlite_unicode} =1;

复制代码

iakuf

回复 69# snriyt
这是原生的 DBI 模块的限制.在讲,他本来就没打算让你可以不断的修改字符集.