Help for this page

Select Code to Download


  1. or download this
        for my $h (@Tree) {
            print "$_ " for @{$h->{Path}};
            print "\n";
        }
    
  2. or download this
    5 32 37
    5 32 38
    ...
    3 12 11 19
    5 32 35
    5 32 36
    
  3. or download this
    0 
    1 2 
    ...
    5 32 41 
    5 32 42 
    5 32 43
    
  4. or download this
        for (5..0) {
            @Tree = sort {
            $a->{Path}->[$_] <=> $b->{Path}->[$_]
        } @Tree;
        }
    
  5. or download this
        for my $page (@Tree) {
            my $Sort = 0;
    ...
        }
    
        @Tree = sort {$a->{Sort} <=> $b->{Sort}} @Tree;