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

前端之家收集整理的这篇文章主要介绍了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包已经处于挤压或尤里卡时刻,在那里我看到了我的方式错误……

猜你在找的Perl相关文章