Converter a string “a.b.c” para $ hash -> {a} -> {b} -> {c} em Perl
Eu tenho hash-refs aninhados dinâmicos como este:
my $hash = { 'a' => { 'b' => { 'c' => 'value' } } };
Eu quero definir o valor de c para 'algo', permitindo que o usuário insira "a.b.c alguma coisa".
Agoraobtendo o valor poderia ser feito assim:
my $keys = 'a.b.c';
my $v='something';
my $h = $hash;
foreach my $k(split /\./, $keys) {
$h = $h->{$k};
}
print $h; # "value"
Mas como euconjunto o valor da chavec
para$v
de modo a
print Dumper $hash;
refletiria a mudança?$h
não é um ref no final do loop foreach, de modo a mudar que não refletirá a mudança no$hash
. Alguma dica de como resolver os nós na minha cabeça?