It looks like the container of daughters is an anonymous array, so given your 'original data' and 'desired re-ordered data' it all amounts to re-ordering the daughters array by their name. Maybe you want a method 'walk_down_sorted' or monkey-patch the module in walk_down amounting to:
--- /usr/share/perl5/Tree/DAG_Node.pm 2018-02-13 23:16:43.000000000
+ +0100
+++ /home/shmem/perl/lib/Tree/DAG_Node.pm 2018-04-23 03:46:29.60751
+5296 +0200
@@ -1661,7 +1661,7 @@
if(@daughters) {
$o->{'_depth'} += 1;
#print "Depth " , $o->{'_depth'}, "\n";
- foreach my $one (@daughters) {
+ foreach my $one (sort {$a->name cmp $b->name} @daughters) {
$one->walk_down($o) if UNIVERSAL::can($one, 'is_node');
# and if it can do "is_node", it should provide a walk_down!
}
result with that:
root HASH (0 ): { nc => 0, top_foo => 1 }
a HASH (0:0 ): { nc => 1 }
b HASH (0:0:0 ): { nc => 2 }
c HASH (0:0:2 ): { nc => 6 }
d HASH (0:0:2:0 ): { nc => 7 }
e HASH (0:0:1 ): { nc => 3 }
f HASH (0:0:1:0 ): { nc => 4 }
g HASH (0:0:1:0:0 ): { nc => 5 }
h HASH (0:1 ): { nc => 8 }
i HASH (0:1:0 ): { nc => 9 }
j HASH (0:1:0:0 ): { nc => 10 }
A sort callback for sorting daughters in walk_down would be nice to have. File an enhancement request ;-)
edit: this sorting callback should also be available while populating the 'daughters' anonymous array.
perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.