Perl Mojolicious 存储转储答案

【问题标题】：Perl Mojolicious stash dumpPerl Mojolicious 存储转储
【发布时间】：2019-05-03 14:52:36
【问题描述】：

如何在 perl 中转储 stash

my $my_data =  {
    'me'    =>  {
        'admin' => 'rhaen',
        'desc'  => 'webserver'
    },
    'you' => {
        'admin' => 'hazel',
        'desc'  => 'mailserver'
    }
};
stash(mydata => $my_data);
print Dumper (stash 'mydata');

我如何打印 mydata me admin。我试过print Dumper (stash 'mydata me'); print Dumper (stash 'mydata'=>['me']); 似乎没有任何效果。尝试排查数据变化的原因。

【问题讨论】：

旁注：Mojo::Util 提供了一个 'dumper' 函数，它是 Data::Dumper 的简单包装器，具有一些不错的设置。

标签： perl mojolicious

【解决方案1】：

我在Mojolicious::Lite中尝试了以下操作：

get '/' => sub {
    my $c = shift;
    $c->stash(mydata => $my_data);
    use Data::Dumper; print Dumper($c->stash('mydata')->{me}{admin});
};

输出是

$VAR1 = 'rhaen';

【讨论】：