以下代码(大部分来自Memoize主页)创建一个0字节的文件,此后,Perl崩溃,退出代码为-1073741819。
我使用ActivePerl 5.10和最新的5.16版本进行了测试。
use Memoize;
use Memoize::Storable;
sub ttt { return 44; }
tie my %cache => 'Memoize::Storable', 'ttt.store';
memoize 'ttt', SCALAR_CACHE => [HASH => \%cache];
在Win XP下的两台差异计算机上会发生这种情况。有任何想法吗?
最佳答案
完成调用后,您需要显式unmemoize
子例程,以便将信息保存到文件中。
use strict;
use warnings;
use Memoize qw/ memoize unmemoize /;
use Memoize::Storable;
sub ttt { 44 }
tie my %cache => 'Memoize::Storable', 'ttt.store';
memoize 'ttt', SCALAR_CACHE => [HASH => \%cache];
ttt($_) for 1..10;
unmemoize 'ttt';