perl坠落在Memoize :: Storable

Question

以下代码（大部分来自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下的两台差异计算机上发生。任何想法？

Answer 1

完成调用后，您需要明确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';