perl - 如何使用 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');