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