如何使用Perl Storable，更改哈希值

Question

我不是Perl专家，所以这可能是一个简单的问题。

我一直在使用Storable，并在this example之后存储哈希。首先，我存储原始哈希值。

use Storable qw(store retrieve freeze thaw dclone);
%color = ('Blue' => 1, 'Red' => 0.8, 'Black' => 0, 'White' => 1);
store(\%color, 'mycolors');

然后我找回它。 （不同的剧本）

use Storable qw(store retrieve freeze thaw dclone);
$colref = retrieve('mycolors');
printf "Blue is still %lf\n", $colref->{'Blue'};

我的问题是如何更改其中一个哈希值？例如，执行类似

的操作

$colref->{'Blue'} = 2;
store(\%color, 'mycolors');

在第二个脚本中。

Answer 1

需要改变

store(\%color, 'mycolors');

到

store($colref, 'mycolors');