Perl通过数组列表访问/更改深度哈希

Question

我想删除一个哈希(任何深度)的元素,它具有第一个键$key[0],第二个键作为$key[1]等,直到@key完成.

例如,如果@key=(23,56,78)那时我想操纵$hash{23}{56}{78}.
我事先不知道@key有多少元素.

我一直在尝试使用以下内容:

my %the_path;
my $temp=\%the_path;
for(my $cline=0;$cline<=$#keys;$cline++){
     my $cfolder=$keys[$cline];
     $temp->{$cfolder}={};
     $temp=$temp->{$cfolder};
}

但是,我不确定如何在这里操纵元素.我怎么做？

Answer 1

Data :: Diver就是为了这个目的而存在的.

my $last_hash = Data::Diver::Dive( \%hash, @keys[0..$#keys-1] );
if ($last_hash) { delete $last_hash->{ $keys[-1] } }