comment on

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!
       }
[download]

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 }
[download]

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'

In reply to Re: Re-ordering data branches in a [Tree::DAG_Node] tree by shmem
in thread Re-ordering data branches in a [Tree::DAG_Node] tree by atcroft

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.


Perl Monk, Perl Meditation
	PerlMonks