如何使用Perl耐儲藏，改變的哈希值

Question

我不是Perl的專家，所以這可能是一個簡單的問題。

我一直在使用耐儲藏，並按照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');