perl – 缓存和避免缓存踩踏 – 多个同时计算

我们有一个非常昂贵的计算,我们想缓存.所以我们做类似的事情：

my $result = $cache->get( $key );

unless ($result) {
    $result = calculate( $key );
    $cache->set( $key,$result,'10 minutes' );
}

return $result;

现在,在calculate($key)期间,在我们将结果存储在缓存中之前,还有其他几个请求进入,也开始运行calculate($key),并且系统性能受到影响,因为许多进程都计算相同的事情.

想法：让我们在缓存中放置一个正在计算值的标志,以便其他请求只等待那一个计算完成,所以他们都使用它.就像是：

my $result = $cache->get( $key );

if ($result) {
    while ($result =~ /Wait,\d+ is running calculate../) {
        sleep 0.5;
        $result = $cache->get( $key );
    }
} else {
    $cache->set( $key,"Wait,$$is running calculate()",'10 minutes' );
    $result = calculate( $key );
    $cache->set( $key,'10 minutes' );
}


return $result;

现在,它开辟了一整套新的蠕虫.如果$$在设置缓存之前死亡,该怎么办？如果……如果…它们都可以解决,但由于CPAN中没有任何内容可以解决这个问题(CPAN中有一些东西可用),我开始想知道：

有更好的方法吗？是否有特殊原因,例如Perl的Cache和Cache :: Cache类不提供这样的机制吗？我可以使用一种经过验证的真实模式吗？

理想的是一个CPAN模块,debian包已经处于挤压或尤里卡时刻,在那里我看到了我的方式错误……

原文地址：https://www.jb51.cc/Perl/171809.html

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [e-mail] 举报，一经查实，本站将立刻删除。

• 上一篇：perl – 如何设置由Plack :: Middl下一篇：perl – 两个或多个链接的PathPart