[Perl]for创建任意层镶嵌的散列

523066680

1. use Data::Dumper;
   
2. use Encode;
   
3. use YAML;
   
4. 
   
5. local $YAML::Indent;
   
6. $YAML::Indent = 4;
   
7. 
   
8. my $data = {};
   
9. my $ref = $data;
   
10. 
    
11. for my $c ('a' .. 'e') {
    
12.         $ref->{'info'} = ord($c);
    
13.         $ref->{$c} = {};
    
14.         $ref = $ref->{$c};
    
15. }
    
16. 
    
17. print Dump($data);
    
18. 
    
19. print "\n";
    
20. print Dumper($data);
    
21. <STDIN>;
    

复制代码

YAML部分需要YAML模块的支持。只是为了展示数据，可以去掉

---
a:
    b:
        c:
            d:
                e: {}
                info: 101
            info: 100
        info: 99
    info: 98
info: 97

$VAR1 = {
          'info' => 97,
          'a' => {
                   'info' => 98,
                   'b' => {
                            'info' => 99,
                            'c' => {
                                     'info' => 100,
                                     'd' => {
                                              'e' => {},
                                              'info' => 101
                                            }
                                   }
                          }
                 }
        };

不管有没有卵用都要发帖骗积分的系列