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';