在Perl中将字符串“a.b.c”转换为$hash – > {a} – > {b}
发布时间:2020-12-15 22:01:02 所属栏目:大数据 来源:网络整理
导读:我有这样的动态嵌套哈希引用: 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(
我有这样的动态嵌套哈希引用:
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" 但是我如何将key c的值设置为$v print Dumper $hash; 会反映出这种变化吗? $h不是foreach循环结束时的ref,因此更改它不会反映$hash的更改.任何提示如何解决我头上的结? 解决方法
像这样的东西:
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; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |