in reply to Re: Complex sort of array of hashes into an array of arrays
in thread Complex sort of array of hashes into an array of arrays

Thank you all for are your answers, I think all of them works for me but more important I learned a lot about sorting and data structures.

I am working now on adapting that code to my (bigger) program.

I will post that part of the code once done if you think it may be useful for anyone.

  • Comment on Re^2: Complex sort of array of hashes into an array of arrays

Replies are listed 'Best First'.
Re^3: Complex sort of array of hashes into an array of arrays
by BioJL (Initiate) on Nov 24, 2010 at 11:42 UTC

    I have a previous code reading the matrix from a file and storing it in the @matrix array of hashes with the structure I showed in the previous post.

    Sorting each row of the original matrix by nucleotide frequency and copying it to another matrix keeping the original position of the row, the nucleotides frequencies and then the nucleotides corresponding to the frequencies in the same order. [OriPos, F1, F2, F3, F4, N1, N2, N3, N4]where F1 is the most frequent nucleotide and N1 is his corresponding letter.

    sub sortmatrix(){
    for (my $i=0; $i<=$#matrix;$i++){
    my @resline = ( $i+1 );
    my @keys = ();
    for my $k ( sort { $matrix[$i]{$b} <=> $matrix[$i]{$a} } keys %{ $
+matrix[$i] } ) {
        push @keys, $k;
        push @resline, $matrix[$i]{$k};
    }
    push @resline, @keys;
    push @sorted, \@resline; # nb. pushing the reference not the array
+ this time
    
    }

    [download]

    Sorting the rows of the matrix by the most frequent nucleotide column, then the 2nd, 3rd, 4th and last by original position

    @sorted = sort {
    $b->[1] <=> $a->[1] ||
        $b->[2] <=> $a->[2] ||
        $b->[3] <=> $a->[3] ||
        $b->[4] <=> $a->[4] ||
        $a->[0] <=> $b->[0];
    } @sorted;
}

use Data::Dumper;
print Data::Dumper->Dump([ \@sorted ],[ qw/ *matrix / ]),"\n";

    [download]

    And here i get my matrix completely sorted :)

    @sortedmatrix = (
                  [
                    4,
                    17,
                    0,
                    0,
                    0,
                    'C',
                    'A',
                    'T',
                    'G'
                  ],
                  [
                    5,
                    17,
                    0,
                    0,
                    0,
                    'A',
                    'T',
                    'C',
                    'G'
                  ],
                  [
                    6,
                    17,
                    0,
                    0,
                    0,
                    'T',
                    'A',
                    'C',
                    'G'
                  ],
                  [
                    7,
                    17,
                    0,
                    0,
                    0,
                    'G',
                    'A',
                    'T',
                    'C'
                  ],
                  [
                    9,
                    17,
                    0,
                    0,
                    0,
                    'C',
                    'A',
                    'T',
                    'G'
                  ],
                  [
                    10,
                    17,
                    0,
                    0,
                    0,
                    'C',
                    'A',
                    'T',
                    'G'
                  ],
                  [
                    11,
                    17,
                    0,
                    0,
                    0,
                    'G',
                    'A',
                    'T',
                    'C'
                  ],
                  [
                    12,
                    17,
                    0,
                    0,
                    0,
                    'G',
                    'A',
                    'T',
                    'C'
                  ],
                  [
                    14,
                    17,
                    0,
                    0,
                    0,
                    'C',
                    'A',
                    'T',
                    'G'
                  ],
                  [
                    15,
                    17,
                    0,
                    0,
                    0,
                    'A',
                    'T',
                    'C',
                    'G'
                  ],
                  [
                    16,
                    17,
                    0,
                    0,
                    0,
                    'T',
                    'A',
                    'C',
                    'G'
                  ],
                  [
                    17,
                    17,
                    0,
                    0,
                    0,
                    'G',
                    'A',
                    'T',
                    'C'
                  ],
                  [
                    3,
                    15,
                    2,
                    0,
                    0,
                    'A',
                    'G',
                    'T',
                    'C'
                  ],
                  [
                    13,
                    15,
                    2,
                    0,
                    0,
                    'G',
                    'A',
                    'T',
                    'C'
                  ],
                  [
                    18,
                    15,
                    2,
                    0,
                    0,
                    'T',
                    'C',
                    'A',
                    'G'
                  ],
                  [
                    1,
                    13,
                    4,
                    0,
                    0,
                    'G',
                    'A',
                    'T',
                    'C'
                  ],
                  [
                    8,
                    13,
                    4,
                    0,
                    0,
                    'C',
                    'T',
                    'A',
                    'G'
                  ],
                  [
                    19,
                    13,
                    4,
                    0,
                    0,
                    'C',
                    'T',
                    'A',
                    'G'
                  ],
                  [
                    2,
                    12,
                    5,
                    0,
                    0,
                    'G',
                    'A',
                    'T',
                    'C'
                  ],
                  [
                    20,
                    7,
                    7,
                    2,
                    0,
                    'T',
                    'C',
                    'G',
                    'A'
                  ]
                );

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom