我们有一个非常昂贵的计算,我们想缓存.所以我们做类似的事情:
- 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包已经处于挤压或尤里卡时刻,在那里我看到了我的方式错误……