分类导航

Perl 发布时间：2022-04-07 发布网站：大佬教程 code.js-code.com

大佬教程收集整理的这篇文章主要介绍了perl – 如何为所有传入的URL创建公共处理程序？，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

我正在编写一些web api,它以 JSON格式返回数据.

对于所有传入的URL,如果缓存周期没有到期,我需要从缓存返回一些结果.

这种逻辑对所有URL都是通用的.

题：

如何在Mojolicious :: Lite中为所有传入的URL实现一些通用逻辑？

我试着这样做

any '/:bar' => [bar => qr/.+/] => sub {
 # ...
 # Return JSON object immediately from cache if it is applicable
 # ...
}@H_618_13@ 
 但是这会导致非常长的页面加载和 
  
 Template "bar.html.ep" not found@H_618_13@ 
 在morbo日志中(但是经过很长时间的延迟后,最终会执行“/ target”处理程序). 
 我是Mojo的完美新手,所以任何帮助都将受到赞赏 
 谢谢！

解决方法

是的,一个before_dispatch钩子似乎是正确的方法,它确实适用于Mojolicious :: Lite.这是一个概念验证,它将为每个唯一请求生成一个新结果,但返回重复请求的重复结果.在此程序中,常规请求处理程序填充缓存,但如果要将该部分与代码的主要功能分开,则可以在after_dispatch挂钩中执行缓存.

use Mojolicious::Lite;

our %CACHE;

any '/:any' => sub {
    my $self = shift;
    my $param = $self->param('any');
    my $result = { reqtime => time,param => $param,number => rand };
    my $path = $self->req->url->path->to_String;
    $CACHE{$path} //= $result;
    $self->render( json => $result );
};

app->hook( before_dispatch => sub {
    my $c = shift;
    my $path = $c->req->url->path->to_String;
    if (defined($CACHE{$path})) {
        $c->render( json => $CACHE{$path},status => 200 );
    }
} );
app->secrets([42])->start;@H_618_13@ 
 样品运行： 
  
 $morbo cachedemo.pl >/dev/null 2>&1 &

$for req in foo foo1 foo2 foo3 foo foo1
> do curl http://localhost:3000/$req ; echo ; sleep 1 ; done

{"number":0.848003210075227,"reqtime":1444254617,"param":"foo"}
{"number":0.0745738560703799,"reqtime":1444254618,"param":"foo1"}
{"number":0.484934245556467,"reqtime":1444254619,"param":"foo2"}
{"number":0.181112856445004,"reqtime":1444254620,"param":"foo3"}
{"number":0.848003210075227,"param":"foo"}     <-- dup
{"number":0.0745738560703799,"param":"foo1"}   <-- dup@H_618_13@