Как использовать 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');