Ordenando un hash de hashes de matriz de matrices en Perl

sorting multidimensional-array

Question

Hice un hash ( %locus ) para organizar mis datos, cuando lo imprimo con Data::Dumper muestra la estructura de datos:

''locus8 >9.2668516.276570.GABA3.1.54.6586237.218516.2718570 74280 74440 locus8''
=> {
''3 70.75 0.995018 -1.89 -'' => [
[
''window10'', ''locus8'',
''>9.2668516.2768570.GABA3.1.54.6586237.2718516.2718570'', ''74280'',
''74400'', ''-'',
''3'', ''120'',
''55.87'', ''-17.41'',
''-11.92'', ''-10.60'',
''-1.32'', ''1.57'',
''-1.58'', ''0.68'',
''2.76'', ''0.995018''
],
[
''window11'', ''locus8'',
''>9.2668516.276570.GABA3.1.54.6586237.218516.2718570'', ''74320'',
''74440'', ''-'', ''3'', ''120'', ''70.75'', ''-22.97'', ''-17.28'', ''-15.07'', ''-2.21'',
''-1.89'', ''0.75'', ''1.95'', ''0.976184''
]
]
},

¿Cómo puedo ordenar las matrices internas por el último elemento en las matrices $_[17] ?

[
[
''window11'', ''locus8'',
''>9.+.2668516.2768570.GABA3.1.54.6586237.2718516.2718570'', ''74320'',
''74440'', ''-'',
''3'', ''120'',
''70.75'', ''-22.97'',
''-17.28'', ''-15.07'',
''-2.21'', ''1.55'',
''-1.89'', ''0.75'',
''1.95'', ''0.976184''
],
[
''window10'', ''locus8'',
''>9.+.2668516.2768570.GABA3.1.54.6586237.2718516.2718570'', ''74280'',
''74400'', ''-'',
''3'', ''120'',
''55.87'', ''-17.41'',
''-11.92'', ''-10.60'',
''-1.32'', ''1.57'',
''-1.58'', ''0.68'',
''2.76'', ''0.995018''
],
]

Quiero mantener la estructura de datos pero, con los "arreglos internos" organizados. Gracias por adelantado.

Answer 1

Intento adivinar lo que estás buscando porque no tienes claro lo que quieres.

for my $outher (values %hash) {
for my $inner (values %$outher) {
@$inner = sort {$a->[17] <=> $b->[17]} @$inner;
}
}