<p dir="ltr">ок спасиб. </p>
<div class="gmail_quote">On Nov 23, 2014 4:05 AM, "Nikolay Mishin" <<a href="mailto:mi@ya.ru">mi@ya.ru</a>> wrote:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Дорогой MoscowPM<br>
занимаясь рисованием дерева из элементов<br>
наткнулся на замечательный модуль<br>
use Data::TreeDumper;<br>
print DumpTree($all, 'all') ;<br>
для отладки он оказался лучше, чем даже<br>
<br>
use Data::Printer {<br>
    output         => 'stdout',<br>
    hash_separator => ': ',<br>
    return_value   => 'pass',<br>
};<br>
<br>
Так, например<br>
<br>
use Data::TreeDumper;<br>
# Create an reference to an array of array references.<br>
$ref_to_AoA = [<br>
    [ "fred", "barney", "pebbles", "bamm bamm", "dino", ],<br>
    [ "homer", "bart", "marge", "maggie", ],<br>
    [ "george", "jane", "elroy", "judy", ],<br>
];<br>
<br>
print DumpTree( $ref_to_AoA, 'ref_to_AoA' );<br>
<br>
ref_to_AoA<br>
|- 0  [A1]<br>
|  |- 0 = fred  [S2]<br>
|  |- 1 = barney  [S3]<br>
|  |- 2 = pebbles  [S4]<br>
|  |- 3 = bamm bamm  [S5]<br>
|  `- 4 = dino  [S6]<br>
|- 1  [A7]<br>
|  |- 0 = homer  [S8]<br>
|  |- 1 = bart  [S9]<br>
|  |- 2 = marge  [S10]<br>
|  `- 3 = maggie  [S11]<br>
`- 2  [A12]<br>
   |- 0 = george  [S13]<br>
   |- 1 = jane  [S14]<br>
   |- 2 = elroy  [S15]<br>
   `- 3 = judy  [S16]<br>
<br>
намного нагляднее, чем Data::Dumper<br>
<br>
<br>
выдаст<br>
<br>
<br>
<br>
<br>
<br>
--<br>
С уважением<br>
Николай Мишин<br>
<br>
--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</blockquote></div>