批处理之家 - Powered by Discuz! Board

标题: [原创教程] [Perl]for创建任意层镶嵌的散列 [打印本页]

作者: 523066680 时间: 2015-7-29 16:41 标题: [Perl]for创建任意层镶嵌的散列

本帖最后由 523066680 于 2016-7-13 10:57 编辑

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
                                          }
                                 }
                        }
               }
      };

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

欢迎光临批处理之家 (http://bbs.bathome.net/)