免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › 请问如何由简单关系的源数据组成需要的数据结构
最近访问板块 发新帖
查看: 4223 | 回复: 6
打印 上一主题 下一主题

请问如何由简单关系的源数据组成需要的数据结构 [复制链接]

huhuegg

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2014-02-26 19:56 |只看该作者 |倒序浏览
20可用积分
本帖最后由 huhuegg 于 2014-02-26 19:56 编辑

请问如何由简单关系的源数据组成这样的数据结构

{
"name": "YXDL.A",
"children": [
                  { "name": "YXDL.B.1"
                     "children": [
                                      { "name": "YXDL.B.1.1"}
                                    ]
                  }
.....................



源数据
$VAR1 = {
          'YXDL.B.3.2' => [
                            'YXDL.B.3.2.1'
                          ],
          'YXDL.B.3.1' => [
                            'YXDL.B.3.1.1',
                            'YXDL.B.3.1.2',
                            'YXDL.B.3.1.3'
                          ],
          'YXDL.B.2.2' => [
                            'YXDL.B.2.2.1',
                            'YXDL.B.2.2.2'
                          ],
          'YXDL.B.3' => [
                          'YXDL.B.3.1',
                          'YXDL.B.3.2',
                          'YXDL.B.3.3',
                          'YXDL.B.3.4',
                          'YXDL.B.3.5',
                          'YXDL.B.3.6'
                        ],
          'YXDL.B.3.3.5' => [
                              'YXDL.B.3.3.5.1'
                            ],
          'YXDL.B.2.5' => [
                            'YXDL.B.2.5.1'
                          ],
          'YXDL.B.3.3' => [
                            'YXDL.B.3.3.1',
                            'YXDL.B.3.3.2',
                            'YXDL.B.3.3.3',
                            'YXDL.B.3.3.4',
                            'YXDL.B.3.3.5'
                          ],
          'YXDL.B.3.1.1' => [
                              'YXDL.B.3.1.1.1'
                            ],
          'YXDL.B.1' => [
                          'YXDL.B.1.1'
                        ],
          'YXDL.B.3.3.1' => [
                              'YXDL.B.3.3.1.1'
                            ],
          'YXDL.B.3.1.2' => [
                              'YXDL.B.3.1.2.1'
                            ],
          'YXDL.B.3.3.2' => [
                              'YXDL.B.3.3.2.1',
                              'YXDL.B.3.3.2.2'
                            ],
          'YXDL.B.2.1' => [
                            'YXDL.B.2.1.1'
                          ],
          'YXDL.A' => [
                        'YXDL.B.1',
                        'YXDL.B.2',
                        'YXDL.B.3',
                        'YXDL.B.4',
                        'YXDL.B.5',
                        'YXDL.B.6'
                      ],
          'YXDL.B.3.3.3' => [
                              'YXDL.B.3.3.3.1'
                            ],
          'YXDL.B.2.3' => [
                            'YXDL.B.2.3.1'
                          ],
          'YXDL.B.2' => [
                          'YXDL.B.2.1',
                          'YXDL.B.2.2',
                          'YXDL.B.2.3',
                          'YXDL.B.2.4',
                          'YXDL.B.2.5'
                        ]
        };

数据是以YXDL.A为根的
YXDL.A -> YXDL.B.1
YXDL.A -> YXDL.B.1 -> YXDL.B.1.1
YXDL.A -> YXDL.B.2
YXDL.A -> YXDL.B.2 -> YXDL.B.2.1
YXDL.A -> YXDL.B.2 -> YXDL.B.2.1 -> YXDL.B.2.1.1
YXDL.A -> YXDL.B.2 -> YXDL.B.2.2
YXDL.A -> YXDL.B.2 -> YXDL.B.2.2 -> YXDL.B.2.2.1
YXDL.A -> YXDL.B.2 -> YXDL.B.2.2 -> YXDL.B.2.2.2
YXDL.A -> YXDL.B.2 -> YXDL.B.2.3
YXDL.A -> YXDL.B.2 -> YXDL.B.2.3 -> YXDL.B.2.3.1
YXDL.A -> YXDL.B.2 -> YXDL.B.2.4
YXDL.A -> YXDL.B.2 -> YXDL.B.2.5
YXDL.A -> YXDL.B.2 -> YXDL.B.2.5 -> YXDL.B.2.5.1
YXDL.A -> YXDL.B.3
YXDL.A -> YXDL.B.3 -> YXDL.B.3.1
YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.1
YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.1 -> YXDL.B.3.1.1.1
YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.2
YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.2 -> YXDL.B.3.1.2.1
YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.3
YXDL.A -> YXDL.B.3 -> YXDL.B.3.2
YXDL.A -> YXDL.B.3 -> YXDL.B.3.2 -> YXDL.B.3.2.1
YXDL.A -> YXDL.B.3 -> YXDL.B.3.3
YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.1
YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.1 -> YXDL.B.3.3.1.1
YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.2
YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.2 -> YXDL.B.3.3.2.1
YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.2 -> YXDL.B.3.3.2.2
YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.3
YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.3 -> YXDL.B.3.3.3.1
YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.4
YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.5
YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.5 -> YXDL.B.3.3.5.1
YXDL.A -> YXDL.B.3 -> YXDL.B.3.4
YXDL.A -> YXDL.B.3 -> YXDL.B.3.5
YXDL.A -> YXDL.B.3 -> YXDL.B.3.6
YXDL.A -> YXDL.B.4
YXDL.A -> YXDL.B.5
YXDL.A -> YXDL.B.6

最佳答案

rubyish

查看完整内容

biru:~v2: ~Dumper:
rubyish

论坛徽章:
7
戌狗 日期:2013-12-15 20:43:38技术图书徽章 日期:2014-03-05 01:33:12技术图书徽章 日期:2014-03-15 20:31:17未羊 日期:2014-03-25 23:48:20丑牛 日期:2014-04-07 22:37:44巳蛇 日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛 日期:2016-03-17 20:36:13
2楼 [报告]
发表于 2014-02-26 19:56 |只看该作者
本帖最后由 rubyish 于 2014-03-05 01:12 编辑

biru:
  1. #!/usr/bin/perl

  3. use Data::Dumper;
  4. $Data::Dumper::Terse    = 1;
  5. $Data::Dumper::Sortkeys = 1;
  6. $Data::Dumper::Pair     = ': ';

  8. my $tree;

  10. while (<DATA>) {
  11.     chomp;
  12.     my ( $ances, @post ) = split /\s+->\s+/;
  13.     $tree->{$ances}{ $post[0] } ||= {};
  14.     my $f = $tree->{$ances};
  15.     for my $i ( 0 .. $#post - 1 ) {
  16.         $f->{ $post[$i] }{ $post[ $i + 1 ] } ||= {};
  17.         $f = $f->{ $post[$i] };
  18.     }
  19. }

  21. sub from {
  22.     my $h = shift;
  23.     my @h = map { $_, $h->{$_} } sort keys %$h;
  24.     map {
  25.         my ( $k, $v ) = splice @h, 0, 2;
  26.         { Name => $k, %$v ? ( child => [ from($v) ] ) : () }
  27.     } 1 .. @h / 2;
  28. }

  30. my @data = from $tree;
  31. print Dumper \@data;

  33. __DATA__
  34. YXDL.A -> YXDL.B.1
  35. YXDL.A -> YXDL.B.1 -> YXDL.B.1.1
  36. YXDL.A -> YXDL.B.2
  37. YXDL.A -> YXDL.B.2 -> YXDL.B.2.1
  38. YXDL.A -> YXDL.B.2 -> YXDL.B.2.1 -> YXDL.B.2.1.1
  39. YXDL.A -> YXDL.B.2 -> YXDL.B.2.2
  40. YXDL.A -> YXDL.B.2 -> YXDL.B.2.2 -> YXDL.B.2.2.1
  41. YXDL.A -> YXDL.B.2 -> YXDL.B.2.2 -> YXDL.B.2.2.2
  42. YXDL.A -> YXDL.B.2 -> YXDL.B.2.3
  43. YXDL.A -> YXDL.B.2 -> YXDL.B.2.3 -> YXDL.B.2.3.1
  44. YXDL.A -> YXDL.B.2 -> YXDL.B.2.4
  45. YXDL.A -> YXDL.B.2 -> YXDL.B.2.5
  46. YXDL.A -> YXDL.B.2 -> YXDL.B.2.5 -> YXDL.B.2.5.1
  47. YXDL.A -> YXDL.B.3
  48. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1
  49. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.1
  50. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.1 -> YXDL.B.3.1.1.1
  51. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.2
  52. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.2 -> YXDL.B.3.1.2.1
  53. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.3
  54. YXDL.A -> YXDL.B.3 -> YXDL.B.3.2
  55. YXDL.A -> YXDL.B.3 -> YXDL.B.3.2 -> YXDL.B.3.2.1
  56. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3
  57. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.1
  58. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.1 -> YXDL.B.3.3.1.1
  59. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.2
  60. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.2 -> YXDL.B.3.3.2.1
  61. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.2 -> YXDL.B.3.3.2.2
  62. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.3
  63. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.3 -> YXDL.B.3.3.3.1
  64. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.4
  65. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.5
  66. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.5 -> YXDL.B.3.3.5.1
  67. YXDL.A -> YXDL.B.3 -> YXDL.B.3.4
  68. YXDL.A -> YXDL.B.3 -> YXDL.B.3.5
  69. YXDL.A -> YXDL.B.3 -> YXDL.B.3.6
  70. YXDL.A -> YXDL.B.4
  71. YXDL.A -> YXDL.B.5
  72. YXDL.A -> YXDL.B.6
复制代码
~
v2: ~
  1. #!/usr/bin/perl

  3. use Data::Dumper;
  4. $Data::Dumper::Terse    = 1;
  5. $Data::Dumper::Sortkeys = 1;
  6. $Data::Dumper::Pair     = ': ';

  8. my $tree;

  10. while (<DATA>) {
  11.     chomp;
  12.     my @p = split /\s+->\s+/;
  13.     my $p = $tree->{ shift @p } ||= {};
  14.     $p = $p->{$_} ||= {} for @p;
  15. }

  17. sub from {
  18.     my $p = shift;
  19.     map {
  20.         my ( $n, $c ) = @$_;
  21.         { Name => $n, %$c ? ( children => [ from($c) ] ) : () }
  22.     } map { [ $_, $p->{$_} ] } sort keys %$p;
  23. }

  25. my @data = from $tree;
  26. print Dumper \@data;


  29. __DATA__
  30. YXDL.A -> YXDL.B.1
  31. YXDL.A -> YXDL.B.1 -> YXDL.B.1.1
  32. YXDL.A -> YXDL.B.2
  33. YXDL.A -> YXDL.B.2 -> YXDL.B.2.1
  34. YXDL.A -> YXDL.B.2 -> YXDL.B.2.1 -> YXDL.B.2.1.1
  35. YXDL.A -> YXDL.B.2 -> YXDL.B.2.2
  36. YXDL.A -> YXDL.B.2 -> YXDL.B.2.2 -> YXDL.B.2.2.1
  37. YXDL.A -> YXDL.B.2 -> YXDL.B.2.2 -> YXDL.B.2.2.2
  38. YXDL.A -> YXDL.B.2 -> YXDL.B.2.3
  39. YXDL.A -> YXDL.B.2 -> YXDL.B.2.3 -> YXDL.B.2.3.1
  40. YXDL.A -> YXDL.B.2 -> YXDL.B.2.4
  41. YXDL.A -> YXDL.B.2 -> YXDL.B.2.5
  42. YXDL.A -> YXDL.B.2 -> YXDL.B.2.5 -> YXDL.B.2.5.1
  43. YXDL.A -> YXDL.B.3
  44. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1
  45. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.1
  46. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.1 -> YXDL.B.3.1.1.1
  47. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.2
  48. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.2 -> YXDL.B.3.1.2.1
  49. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.3
  50. YXDL.A -> YXDL.B.3 -> YXDL.B.3.2
  51. YXDL.A -> YXDL.B.3 -> YXDL.B.3.2 -> YXDL.B.3.2.1
  52. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3
  53. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.1
  54. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.1 -> YXDL.B.3.3.1.1
  55. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.2
  56. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.2 -> YXDL.B.3.3.2.1
  57. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.2 -> YXDL.B.3.3.2.2
  58. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.3
  59. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.3 -> YXDL.B.3.3.3.1
  60. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.4
  61. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.5
  62. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.5 -> YXDL.B.3.3.5.1
  63. YXDL.A -> YXDL.B.3 -> YXDL.B.3.4
  64. YXDL.A -> YXDL.B.3 -> YXDL.B.3.5
  65. YXDL.A -> YXDL.B.3 -> YXDL.B.3.6
  66. YXDL.A -> YXDL.B.4
  67. YXDL.A -> YXDL.B.5
  68. YXDL.A -> YXDL.B.6
复制代码
Dumper:
  1. [
  2.   {
  3.     'Name': 'YXDL.A',
  4.     'child': [
  5.                  {
  6.                    'Name': 'YXDL.B.1',
  7.                    'child': [
  8.                                 {
  9.                                   'Name': 'YXDL.B.1.1'
  10.                                 }
  11.                               ]
  12.                  },
  13.                  {
  14.                    'Name': 'YXDL.B.2',
  15.                    'child': [
  16.                                 {
  17.                                   'Name': 'YXDL.B.2.1',
  18.                                   'child': [
  19.                                                {
  20.                                                  'Name': 'YXDL.B.2.1.1'
  21.                                                }
  22.                                              ]
  23.                                 },
  24.                                 {
  25.                                   'Name': 'YXDL.B.2.2',
  26.                                   'child': [
  27.                                                {
  28.                                                  'Name': 'YXDL.B.2.2.1'
  29.                                                },
  30.                                                {
  31.                                                  'Name': 'YXDL.B.2.2.2'
  32.                                                }
  33.                                              ]
  34.                                 },
  35.                                 {
  36.                                   'Name': 'YXDL.B.2.3',
  37.                                   'child': [
  38.                                                {
  39.                                                  'Name': 'YXDL.B.2.3.1'
  40.                                                }
  41.                                              ]
  42.                                 },
  43.                                 {
  44.                                   'Name': 'YXDL.B.2.4'
  45.                                 },
  46.                                 {
  47.                                   'Name': 'YXDL.B.2.5',
  48.                                   'child': [
  49.                                                {
  50.                                                  'Name': 'YXDL.B.2.5.1'
  51.                                                }
  52.                                              ]
  53.                                 }
  54.                               ]
  55.                  },
  56.                  {
  57.                    'Name': 'YXDL.B.3',
  58.                    'child': [
  59.                                 {
  60.                                   'Name': 'YXDL.B.3.1',
  61.                                   'child': [
  62.                                                {
  63.                                                  'Name': 'YXDL.B.3.1.1',
  64.                                                  'child': [
  65.                                                               {
  66.                                                                 'Name': 'YXDL.B.3.1.1.1'
  67.                                                               }
  68.                                                             ]
  69.                                                },
  70.                                                {
  71.                                                  'Name': 'YXDL.B.3.1.2',
  72.                                                  'child': [
  73.                                                               {
  74.                                                                 'Name': 'YXDL.B.3.1.2.1'
  75.                                                               }
  76.                                                             ]
  77.                                                },
  78.                                                {
  79.                                                  'Name': 'YXDL.B.3.1.3'
  80.                                                }
  81.                                              ]
  82.                                 },
  83.                                 {
  84.                                   'Name': 'YXDL.B.3.2',
  85.                                   'child': [
  86.                                                {
  87.                                                  'Name': 'YXDL.B.3.2.1'
  88.                                                }
  89.                                              ]
  90.                                 },
  91.                                 {
  92.                                   'Name': 'YXDL.B.3.3',
  93.                                   'child': [
  94.                                                {
  95.                                                  'Name': 'YXDL.B.3.3.1',
  96.                                                  'child': [
  97.                                                               {
  98.                                                                 'Name': 'YXDL.B.3.3.1.1'
  99.                                                               }
  100.                                                             ]
  101.                                                },
  102.                                                {
  103.                                                  'Name': 'YXDL.B.3.3.2',
  104.                                                  'child': [
  105.                                                               {
  106.                                                                 'Name': 'YXDL.B.3.3.2.1'
  107.                                                               },
  108.                                                               {
  109.                                                                 'Name': 'YXDL.B.3.3.2.2'
  110.                                                               }
  111.                                                             ]
  112.                                                },
  113.                                                {
  114.                                                  'Name': 'YXDL.B.3.3.3',
  115.                                                  'child': [
  116.                                                               {
  117.                                                                 'Name': 'YXDL.B.3.3.3.1'
  118.                                                               }
  119.                                                             ]
  120.                                                },
  121.                                                {
  122.                                                  'Name': 'YXDL.B.3.3.4'
  123.                                                },
  124.                                                {
  125.                                                  'Name': 'YXDL.B.3.3.5',
  126.                                                  'child': [
  127.                                                               {
  128.                                                                 'Name': 'YXDL.B.3.3.5.1'
  129.                                                               }
  130.                                                             ]
  131.                                                }
  132.                                              ]
  133.                                 },
  134.                                 {
  135.                                   'Name': 'YXDL.B.3.4'
  136.                                 },
  137.                                 {
  138.                                   'Name': 'YXDL.B.3.5'
  139.                                 },
  140.                                 {
  141.                                   'Name': 'YXDL.B.3.6'
  142.                                 }
  143.                               ]
  144.                  },
  145.                  {
  146.                    'Name': 'YXDL.B.4'
  147.                  },
  148.                  {
  149.                    'Name': 'YXDL.B.5'
  150.                  },
  151.                  {
  152.                    'Name': 'YXDL.B.6'
  153.                  }
  154.                ]
  155.   }
  156. ]
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
huhuegg

论坛徽章:
0
3楼 [报告]
发表于 2014-02-28 10:50 |只看该作者
回复 2# rubyish

sub from {
    my $h = shift;
    my @h = map { $_, $h->{$_} } sort keys %$h;
    map {
        my ( $k, $v ) = splice @h, 0, 2;
        { Name => $k, %$v ? ( child => [ from($v) ] ) : () }
    } 1 .. @h / 2;
}

这段没看太明白... 求解释


   
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
rubyish

论坛徽章:
7
戌狗 日期:2013-12-15 20:43:38技术图书徽章 日期:2014-03-05 01:33:12技术图书徽章 日期:2014-03-15 20:31:17未羊 日期:2014-03-25 23:48:20丑牛 日期:2014-04-07 22:37:44巳蛇 日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛 日期:2016-03-17 20:36:13
4楼 [报告]
发表于 2014-03-01 01:08 |只看该作者
本帖最后由 rubyish 于 2014-02-28 21:41 编辑

print Dumper $tree;

  2. ..........
  3.                                 'YXDL.B.3.3' => {
  4.                                                   'YXDL.B.3.3.1' => {
  5.                                                                       'YXDL.B.3.3.1.1' => {}
  6.                                                                     },
  7.                                                   'YXDL.B.3.3.2' => {
  8.                                                                       'YXDL.B.3.3.2.1' => {},
  9.                                                                       'YXDL.B.3.3.2.2' => {}
  10.                                                                     },
  11.                                                   'YXDL.B.3.3.3' => {
  12.                                                                       'YXDL.B.3.3.3.1' => {}
  13.                                                                     },
  14.                                                   'YXDL.B.3.3.4' => {},
  15.                                                   'YXDL.B.3.3.5' => {
  16.                                                                       'YXDL.B.3.3.5.1' => {}
  17.                                                                     }
  18.                                                 },
  19.                                 'YXDL.B.3.4' => {},
  20.                                 'YXDL.B.3.5' => {},
  21.                                 'YXDL.B.3.6' => {}
  22.                               },
  23.                 'YXDL.B.4' => {},
  24.                 'YXDL.B.5' => {},
  25.                 'YXDL.B.6' => {}
复制代码
~
~
that 段 eq this
this 段 is better
  1. sub from {
  2.     my $p = shift;
  3.     map {
  4.         my ( $n, $c ) = @$_;
  5.         { Name => $n, %$c ? ( children => [ from($c) ] ) : () }
  6.     } map { [ $_, $p->{$_} ] } sort keys %$p;
  7. }
复制代码
.
.
解释:
  1. sub from {
  2.     my $persons = shift;
  3.     my %persons = %{$persons};
  4.     my @persons = map { [ $_, $persons{$_} ] } sort keys %persons;
  5.     map {
  6.         my ( $name, $children ) = @$_;
  7.         keys %$children > 0       # has children
  8.           ? { Name => $name, children => [ from($children) ] }
  9.           : { Name => $name }
  10.     } @persons;
  11. }
复制代码
.
.
no children
'YXDL.B.6' => {}

return: { Name => $name }

has children
'YXDL.B.3.3.5' => { 'YXDL.B.3.3.5.1' => {}  }

return:  { Name => $name, children => [ from($children) ] }
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
huhuegg

论坛徽章:
0
5楼 [报告]
发表于 2014-03-03 09:40 |只看该作者
))
明白了谢谢~~~
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
rubyish

论坛徽章:
7
戌狗 日期:2013-12-15 20:43:38技术图书徽章 日期:2014-03-05 01:33:12技术图书徽章 日期:2014-03-15 20:31:17未羊 日期:2014-03-25 23:48:20丑牛 日期:2014-04-07 22:37:44巳蛇 日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛 日期:2016-03-17 20:36:13
6楼 [报告]
发表于 2014-03-05 05:08 |只看该作者
v2:~
  1. #!/usr/bin/perl

  3. use Data::Dumper;
  4. $Data::Dumper::Terse    = 1;
  5. $Data::Dumper::Sortkeys = 1;
  6. $Data::Dumper::Pair     = ': ';

  8. my $tree;

  10. while (<DATA>) {
  11.     chomp;
  12.     my @p = split /\s+->\s+/;
  13.     my $p = $tree->{ shift @p } ||= {};
  14.     $p = $p->{$_} ||= {} for @p;
  15. }

  17. sub from {
  18.     my $p = shift;
  19.     map {
  20.         my ( $n, $c ) = @$_;
  21.         { Name => $n, %$c ? ( child => [ from($c) ] ) : () }
  22.     } map { [ $_, $p->{$_} ] } sort keys %$p;
  23. }

  25. my @data = from $tree;
  26. print Dumper \@data;


  29. __DATA__
  30. YXDL.A -> YXDL.B.1
  31. YXDL.A -> YXDL.B.1 -> YXDL.B.1.1
  32. YXDL.A -> YXDL.B.2
  33. YXDL.A -> YXDL.B.2 -> YXDL.B.2.1
  34. YXDL.A -> YXDL.B.2 -> YXDL.B.2.1 -> YXDL.B.2.1.1
  35. YXDL.A -> YXDL.B.2 -> YXDL.B.2.2
  36. YXDL.A -> YXDL.B.2 -> YXDL.B.2.2 -> YXDL.B.2.2.1
  37. YXDL.A -> YXDL.B.2 -> YXDL.B.2.2 -> YXDL.B.2.2.2
  38. YXDL.A -> YXDL.B.2 -> YXDL.B.2.3
  39. YXDL.A -> YXDL.B.2 -> YXDL.B.2.3 -> YXDL.B.2.3.1
  40. YXDL.A -> YXDL.B.2 -> YXDL.B.2.4
  41. YXDL.A -> YXDL.B.2 -> YXDL.B.2.5
  42. YXDL.A -> YXDL.B.2 -> YXDL.B.2.5 -> YXDL.B.2.5.1
  43. YXDL.A -> YXDL.B.3
  44. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1
  45. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.1
  46. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.1 -> YXDL.B.3.1.1.1
  47. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.2
  48. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.2 -> YXDL.B.3.1.2.1
  49. YXDL.A -> YXDL.B.3 -> YXDL.B.3.1 -> YXDL.B.3.1.3
  50. YXDL.A -> YXDL.B.3 -> YXDL.B.3.2
  51. YXDL.A -> YXDL.B.3 -> YXDL.B.3.2 -> YXDL.B.3.2.1
  52. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3
  53. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.1
  54. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.1 -> YXDL.B.3.3.1.1
  55. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.2
  56. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.2 -> YXDL.B.3.3.2.1
  57. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.2 -> YXDL.B.3.3.2.2
  58. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.3
  59. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.3 -> YXDL.B.3.3.3.1
  60. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.4
  61. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.5
  62. YXDL.A -> YXDL.B.3 -> YXDL.B.3.3 -> YXDL.B.3.3.5 -> YXDL.B.3.3.5.1
  63. YXDL.A -> YXDL.B.3 -> YXDL.B.3.4
  64. YXDL.A -> YXDL.B.3 -> YXDL.B.3.5
  65. YXDL.A -> YXDL.B.3 -> YXDL.B.3.6
  66. YXDL.A -> YXDL.B.4
  67. YXDL.A -> YXDL.B.5
  68. YXDL.A -> YXDL.B.6
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP