[Moscow.pm] use Data::TreeDumper ;

[Nikolay Mishin]

Дорогой MoscowPM
занимаясь рисованием дерева из элементов
наткнулся на замечательный модуль 
use Data::TreeDumper;
print DumpTree($all, 'all') ;
для отладки он оказался лучше, чем даже

use Data::Printer {
    output         => 'stdout',
    hash_separator => ': ',
    return_value   => 'pass',
};

Так, например

use Data::TreeDumper;
# Create an reference to an array of array references.
$ref_to_AoA = [
    [ "fred", "barney", "pebbles", "bamm bamm", "dino", ],
    [ "homer", "bart", "marge", "maggie", ],
    [ "george", "jane", "elroy", "judy", ],
];

print DumpTree( $ref_to_AoA, 'ref_to_AoA' );

ref_to_AoA
|- 0  [A1]
|  |- 0 = fred  [S2]
|  |- 1 = barney  [S3]
|  |- 2 = pebbles  [S4]
|  |- 3 = bamm bamm  [S5]
|  `- 4 = dino  [S6]
|- 1  [A7]
|  |- 0 = homer  [S8]
|  |- 1 = bart  [S9]
|  |- 2 = marge  [S10]
|  `- 3 = maggie  [S11]
`- 2  [A12]
   |- 0 = george  [S13]
   |- 1 = jane  [S14]
   |- 2 = elroy  [S15]
   `- 3 = judy  [S16]

намного нагляднее, чем Data::Dumper


выдаст





-- 
С уважением
Николай Мишин