Конвертировать строку «a.b.c» в $ hash -> {a} -> {b} -> {c} в Perl

Я динамически вложенные хэш-ссылки, как это:

my $hash = { 'a' => { 'b' => { 'c' => 'value' } } };

Я хочу установить значение c на «что-то» позволяя пользователю вводить «a.b.c что-то».

Сейчасgetting значение может быть сделано следующим образом:

my $keys = 'a.b.c'; 
my $v='something';
my $h = $hash;
foreach my $k(split /\./, $keys) {
  $h = $h->{$k};
}
print $h; # "value"

Но как бы яset значение ключаc в$v чтобы

print Dumper $hash;

будет отражать изменения?$h не является ссылкой в конце цикла foreach, поэтому изменение, которое не будет отражать изменение в$hash, Любые намеки, как решить узлы в моей голове?

 tchrist10 июн. 2012 г., 06:56
Попробуйте использовать CPANData::Dump Модуль & # x2019; sdd функция вместо стандартнойData::Dumper& # X2019; sDumper, Модуль CPAN облегчает чтение.

Ответы на вопрос(3)

use strictures;
use Data::Diver qw(DiveVal);

my ($hash, $path, $value) = (
    { 'a' => { 'b' => { 'c' => 'value' } } },
    'a.b.c',
    'something',
);

DiveVal($hash, split /[.]/, $path) = $value;
# { a => { b => { c => 'something' } } }
sub dive_val :lvalue {
   my $p = \shift;
   $p = \( ($p)->{$_} ) for @_;
   return $p;
}

my $data;
my $key = 'a.b.c';
my $val = 'value';

dive_val($data, split /\./, $key) = $val;

следовательно, немного более сложная в использовании) версия этой функции обеспечиваетсяДанные :: Diver.

use Data::Diver qw( DiveVal );

my $data;
my $key = 'a.b.c';
my $val = 'value';

DiveVal($data //= {}, map \$_, split /\./, $key) = $val;

(использование daxim немного отключено.)

 28 февр. 2019 г., 16:09
Explanation на сколькоdive_val работает.
Решение Вопроса

my $h = $hash;
my @split_key = split /\./, $keys;
my $last_key = pop @split_key;
foreach my $k (@split_key) {
    $h = $h->{$k};
}
$h->{$last_key} = $v;
 28 февр. 2019 г., 16:04
Это не работает с$h->{a} не определен
 agranig10 июн. 2012 г., 00:54
Спасибо, работает :)

Ваш ответ на вопрос