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

yiten

这几天有空，把zhlong8的第二个算法改写了下，改写后不会修改原数组，也快了一些。
如果有人发现这个功能有用，可以参考下，我是个好人

1. 
   
2. sub array2hash {
   
3.     my $array = shift;
   
4.    
   
5.     my $result_hash = {};
   
6.     my $temp_hash;
   
7.    
   
8.     for my $item (@$array) {
   
9.         $temp_hash = $result_hash;
   
10.         
    
11.         for my $i ( 0..$#$item - 2 ) {
    
12.             my $key = $item->[$i];
    
13.             
    
14.             $temp_hash->{$key} = {} unless ref $temp_hash->{$key};
    
15.             
    
16.             $temp_hash = $temp_hash->{$key};
    
17.         }
    
18.         
    
19.         $temp_hash->{$item->[-2]} = $item->[-1] if exists $item->[-2];
    
20.     }
    
21. 
    
22.     return $result_hash;
    
23. }
    

复制代码

yiten