drv*_*iny 5 perl mojolicious mojolicious-lite
我正在编写一些web api,它以JSON格式返回数据.
对于所有传入的URL,如果缓存周期没有到期,我需要从缓存返回一些结果.
这种逻辑对所有URL都是通用的.
题:
如何在Mojolicious :: Lite中为所有传入的URL实现一些通用逻辑?
我试着这样做
any '/:bar' => [bar => qr/.+/] => sub {
# ...
# Return JSON object immediately from cache if it is applicable
# ...
}
Run Code Online (Sandbox Code Playgroud)
但是这会导致非常长的页面加载和
Template "bar.html.ep" not found
Run Code Online (Sandbox Code Playgroud)
在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;
Run Code Online (Sandbox Code Playgroud)
示例运行:
$ 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,"reqtime":1444254617,"param":"foo"} <-- dup
{"number":0.0745738560703799,"reqtime":1444254618,"param":"foo1"} <-- dup
Run Code Online (Sandbox Code Playgroud)