Как использовать Perl Storable, меняя значение хеша

Question

Я не эксперт по Perl, так что это, вероятно, простой вопрос.

Я использовал Storable и следую этому примеру для хранения хеша. Во-первых, я храню оригинальный хэш.

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