在Perl中将字符串“a.b.c”转换为$ hash-> {a} - > {b} - > {c}

时间:2012-06-09 22:23:21

标签: perl perl-data-structures

我已经动态嵌套了这样的hash-ref:

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

我想通过允许用户输入“a.b.c something”来将c的值设置为'something'。

现在获取值可以这样做:

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

但我如何将<{1}}的值设置为c,以便

$v

会反映这种变化吗? print Dumper $hash; 在foreach循环结束时不是引用,因此更改它不会反映$h中的更改。任何提示如何解决我脑袋里的结?

3 个答案:

答案 0 :(得分:6)

这样的事情:

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;

答案 1 :(得分:5)

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;

Data::Diver提供了此功能的更强大(因此稍微难以使用)版本。

use Data::Diver qw( DiveVal );

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

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

(daxim的用法略有偏差。)

答案 2 :(得分: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' } } }