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

yiten

通用的方法，传进任意的2维数组
如：把[ [1,2,3], ['a','b','c'], [ 1, 'b', '3']]转成
{ 1 => { 2 => 3, b => 3 }, a => { b => c } }

zhlong8

1. sub a2h {
   
2.     my $array_ref = shift;
   
3.     my $hash_ref;
   
4.     for (@$array_ref) {
   
5.         my($k1, $k2, $v) = @$_;
   
6.         $hash_ref->{$k1}{$k2} = $v;
   
7.     }
   
8.     return $hash_ref;
   
9. }

复制代码

flw

$hash->{$_->[0]}{$_->[1]} = $_->[2] foreach @$array;

yiten

我说的是通用的
如果是[ [1,2,3,4], ['a','b','c',4], [ 1, 'b', '3',4]]呢

yiten

就是[$array_1,...,$array_n]
$array_n为相同长度的数组长度>=2，且至少有一个元素不同

zhlong8

用了递归。下次问题描述清楚点啊，通用什么的

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_ref;
   
10.     for (@$array_ref) {
    
11.         my $k = shift @$_;
    
12.         $hash_ref->{$k} = l2h @$_;
    
13.     }
    
14.     return $hash_ref;
    
15. }
    
16. 
    
17. sub l2h {
    
18.     if (@_ == 1) {
    
19.         return shift;
    
20.     } else {
    
21.         my $key = shift;
    
22.         return {$key => &l2h(@_)};
    
23.     }
    
24. }
    
25. 
    
26. print Dumper a2h [ [1,2,3,4], ['a','b','c',4], [ 1, 'b', '3',4]]

复制代码

因为你有重复的 key 1，所以输出为

1. $VAR1 = {
   
2.           '1' => {
   
3.                    'b' => {
   
4.                             '3' => 4
   
5.                           }
   
6.                  },
   
7.           'a' => {
   
8.                    'b' => {
   
9.                             'c' => 4
   
10.                           }
    
11.                  }
    
12.         };

复制代码

yiten

多谢啊，果然是高手

yiten

好像不对
print Dumper a2h [ [1,2,3,4,5], ['a','b','c',4, 6], [ 'a', 'b', 2,3,4], [ 1, 2, 3,'b', 4] ]结果是
$VAR1 = {
          '1' => {
                   '2' => {
                            '3' => {
                                     'b' => 4
                                   }
                          }
                 },
          'a' => {
                   'b' => {
                            '2' => {
                                     '3' => 4
                                   }
                          }
                 }
        };

yiten

正确的结果应该是
$VAR1 = {
          '1' => {
                   '2' => {
                            '3' => {
                                     'b' => 4
                                     '4' => 5
                                   }
                          }
                 },
          ....
          ....
        };

zhlong8

回复 9# yiten


    ……没看上面我说你有重复key所以显示只有两个。原来你每一层key可以随意在后面添加的。我要哭了，说清楚嘛