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

523066680

use Data::Dumper;
use Encode;
use YAML;

local $YAML::Indent;
$YAML::Indent = 4;

my $data = {};
my $ref = $data;

for my $c ('a' .. 'e') {
	$ref->{'info'} = ord($c);
	$ref->{$c} = {};
	$ref = $ref->{$c};
}

print Dump($data);

print "\n";
print Dumper($data);
<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
                                            }
                                   }
                          }
                 }
        };

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