在 perl 中访问哈希引用

Question

我想知道是否可以在 perl 中执行以下操作。它将节省 40-50 行代码。

我有一个如下的哈希数据结构：

hash_Ref->{a}->{b}->{c}->{d}->{e}->{'count'}=30

我想知道有没有一种方法可以执行以下操作：

my $hash_ref_1 = ash_Ref->{a}->{b}->{c}->{d};

然后使用：

$hash_ref_2->{e}. 

所以总而言之，我想将哈希引用存储到变量中的层次结构中的点“x”，然后访问点“x”指向的参考。我认为这一点在上面的例子中更清楚。

更多细节

我尝试了几件事，但似乎对我不起作用。我正在复制代码，但不是我尝试复制哈希的所有内容。另外，我得到的输出是这样的，

 $VAR1 = {
          'e' => {
                   'count' => 2
                 },
          'c' => {
                   'count' => 2
                 },
          'a' => {
                   'count' => 2
                 },
          'b' => {
                   'count' => 2
                 },
          'd' => {
                   'count' => 2
                 }
        };

我期望这样的输出：

'a' => { 'count' => 2, 'b' => { 'count' => 2, 'c' => ......} }  

这是我使用的一些代码：

use strict;
use Data::Dumper;

my @array1 = ('a','b','c','d','e');
my @array2 = ('a','b','c','d','e');
my $hash;

 build_hash(\@array1);
 build_hash(\@array2);


sub build_hash {

    my @array = @{shift @_};

    my $hash_ref;

    for ( my $i =0 ;  $i < scalar @array ; $i++ ){

        print "$i \t $array[$i] \n";
         if ( exists $hash->{$array[$i]} ){

            $hash->{$array[$i]}->{'count'}++;
        }

        else{

            $hash->{$array[$i]}->{'count'}=1;
        }
    }
    print Dumper($hash);

}

我想根据 perl 中的元素按顺序构建一个哈希引用的层次结构，并可能使用一个循环，例如我已经尝试在示例代码中执行此操作。

谢谢！ -阿比

Answer 1

# 'a' => { 'count' => 2, 'b' => { 'count' => 2, 'c' => ......} }

sub build_hash {
    $_[0] ||= {};
    my $hash = shift;
    for (@_) {
        $hash = $hash->{$_} ||= {};
        ++$hash->{count};
    }
}

build_hash($hash, @array1);
build_hash($hash, @array2);

如果你想使用自动激活，你可以这样写：

sub build_hash {
    my $p = \shift;
    for (@_) {
        $p = \( $p->{$_} );
        ++$p->{count};
    }
}

build_hash($hash, @array1);
build_hash($hash, @array2);

另请参阅： Data::Diver

Answer 2

这应该像你想象的那样工作。作为旁注，有时当你有......的哈希值的哈希值时，你首先真正想要的是带有复合键的哈希值，例如 $h{"$a,$b,$c"} $h{$a}{$b}{$c}。只是要记住一些事情。不知道这里是否适用。