【求解】如何将2维数组转成多层哈希

yiten

恩，是的。
你的方法在第一层是分开了，但是第二层开始都是覆盖了

zhlong8

可以处理任意的里面元素长度超过2的二维数组，不需要等长，不过要注意不能有重复key

1. use strict;
   
2. use warnings;
   
3. use Data::Dumper;
   
4. 
   
5. sub l2h;
   
6. 
   
7. sub a2h {
   
8.     my $array_ref = shift;
   
9.     my %hash;
   
10.     for (@$array_ref) {
    
11.         l2h \%hash, $_;
    
12.     }
    
13.     return \%hash;
    
14. }
    
15. 
    
16. sub l2h {
    
17.     my($hash_ref, $array_ref) = @_;
    
18.     my $key = shift @$array_ref;
    
19. 
    
20.     if (@$array_ref == 1) {
    
21.         $hash_ref->{$key} = shift @$array_ref;
    
22.         return;
    
23.     }
    
24.     elsif (exists $hash_ref->{$key} and ref($hash_ref->{$key}) eq 'HASH') {
    
25.         &l2h($hash_ref->{$key}, $array_ref);
    
26.     }
    
27.     else {
    
28.         $hash_ref->{$key} = {};
    
29.         &l2h($hash_ref->{$key}, $array_ref);
    
30.     }
    
31. }
    
32. 
    
33. 
    
34. print Dumper a2h [[1,2,3,4,5], ['a','b','c',4, 6], [ 'a', 'b', 2,3,4], [ 1, 2, 3,'b', 4]]

复制代码

输出为

1. $VAR1 = {
   
2.           '1' => {
   
3.                    '2' => {
   
4.                             '3' => {
   
5.                                      '4' => 5,
   
6.                                      'b' => 4
   
7.                                    }
   
8.                           }
   
9.                  },
   
10.           'a' => {
    
11.                    'b' => {
    
12.                             'c' => {
    
13.                                      '4' => 6
    
14.                                    },
    
15.                             '2' => {
    
16.                                      '3' => 4
    
17.                                    }
    
18.                           }
    
19.                  }
    
20.         };
    

复制代码

yiten

这个是对的了，厉害，呵呵{:3_193:}

yiten

我的思路是到了，要把外面的哈希引用传到递归里去填充。
但是就是出不来正确结果，看了这个果然觉悟了，哈哈

zhlong8

回复 14# yiten


    写了个循环版的，FP用多习惯递归了

1. use strict;
   
2. use warnings;
   
3. use Data::Dumper;
   
4. 
   
5. sub a2h {
   
6.     my $array_ref = shift;
   
7.     my %hash;
   
8. 
   
9.     for my $item (@$array_ref) {
   
10.         my $hash_ref = \%hash;
    
11.         while (@$item > 2) {
    
12.             my $key = shift @$item;
    
13.             if (exists $hash_ref->{$key} and ref($hash_ref->{$key}) eq 'HASH') {
    
14.                 $hash_ref = $hash_ref->{$key};
    
15.             }
    
16.             else {
    
17.                 $hash_ref->{$key} = {};
    
18.                 $hash_ref = $hash_ref->{$key};
    
19.             }
    
20.         }
    
21.         my($key, $val) = @$item;
    
22.         $hash_ref->{$key} = $val;
    
23.     }
    
24. 
    
25.     \%hash;
    
26. }
    
27. 
    
28. print Dumper a2h [[1,2,3,4,5], ['a','b','c',4, 6], ['a', 'b', 2,3,4], [ 1, 2, 3,'b', 4],[1,'kk','afkd'],[1,'kk', 'afkd',2]]
    

复制代码

输出为

1. $VAR1 = {
   
2.           '1' => {
   
3.                    'kk' => {
   
4.                              'afkd' => 2
   
5.                            },
   
6.                    '2' => {
   
7.                             '3' => {
   
8.                                      '4' => 5,
   
9.                                      'b' => 4
   
10.                                    }
    
11.                           }
    
12.                  },
    
13.           'a' => {
    
14.                    'b' => {
    
15.                             'c' => {
    
16.                                      '4' => 6
    
17.                                    },
    
18.                             '2' => {
    
19.                                      '3' => 4
    
20.                                    }
    
21.                           }
    
22.                  }
    
23.         };
    

复制代码

yiten

向zhlong8致敬
自己感觉这个问题还是比较有深度的和技巧的，有人会发现这个转化还是比较有用的，哈哈

yiten

这2个算法已经很不错了，$hash_ref有类似游标的作用
但是里头有对数组的shift操作，而且相当于shift了mxn次，我觉得在数据量比较大的情况下，还不是很轻快。

zhlong8

回复 17# yiten


    shift 很快的不用担心(内部用偏移量实现，时间复杂度为 O(1))，需要历遍所有元素这个复杂度必须的吧？

yiten

回复 18# zhlong8


    恩，我的思路也只有这个，但是能不能也借鉴用类似游标来做，尽量不要修改原数组，不知道能不能行的通。有空再研究吧，呵呵

zhlong8

回复 19# yiten


    用下标索引速度反而慢了。数组结构也不复杂，可以用 Clone 复制份来操作