Foro - Perl en Español

por **programando_perl** » 2009-07-30 18:06 @796

Necesito ayuda... Tengo un hash en el que almaceno una clave y un valor y al imprimirlo se puede ver por pantalla:

Código: Seleccionar todo: #Codon AA GCT A GCA A GCC A TGT C TGC C ATA I ATC I

y bueno, es mucho más amplio.. Se observa, por lo tanto, que el valor me aparece ordenado alfabéticamente (A, C, D, E, F..) pero necesito ADEMÁS (necesito ambos) que el codon también aparezca ordenado (dentro de los que codifican a un mismo aminoácido ordenados alfabéticamente).
Así pues, tendría que obtener

Código: Seleccionar todo: #Codon AA GCA A GCC A GCT A TGC C TGT C ATA I ATC I

Observación: Dentro de los que codifican al aminoácido A, estarían ordenados alfabéticamente GCA, GCC,y GCT.

Escribidme el código por favor, que la función sort() me está desesperando.
Gracias.
Gracias de antemano.

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my%codon=(
'GCT'=>'A',
'GCA'=>'A',
'GCC'=>'A',
'TGT'=>'C',
'TGC'=>'C',
'ATA'=>'I',
'ATC'=>'I',
);

formy$codon(sort{$codon{$a}cmp$codon{$b}||$acmp$b}keys%codon){
print"$codon\t$codon{$codon}\n";
}

__END__Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

En la función sort(), primero ordenados alfabéticamente por los valores o (||), si éstos coinciden, ordenamos por las claves.

Esta es la forma de encadenar varios criterios de ordenación dentro de sort().
Más ejemplos en perldoc perlfunc sort().

por **programando_perl** » 2009-07-31 03:38 @193

Muchísimas gracias. Funciona perfectamente

por **salva** » 2009-07-31 05:07 @255

Hola,

Cuando quieras ordenar "cosas" por múltiples atributos otra alternativa es usar los módulos Sort::Maker o Sort::Key::Multi.

Yo personalmente (y de forma nada imparcial ;-)

) te recomiendo Sort::Key::Multi:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Sort::Key::Multi qw(ss_keysort);
 
my %codon = (...);
 
my @sorted_keys = ss_keysort { $codon{$_}, $_ } keys %codon;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Las principales ventajas de usar estos módulos son por un lado la velocidad y por otro que el código queda más clarito, especialmente cuando las claves de ordenación se "calculan" al vuelo y son complicadas.

Foro - Perl en Español

Ordenar un hash por un valor y por la clave a la vez

Ordenar un hash por un valor y por la clave a la vez

Publicidad

Re: Ordenar un hash por un valor y por la clave a la vez

Re: Ordenar un hash por un valor y por la clave a la vez

Re: Ordenar un hash por un valor y por la clave a la vez

¿Quién está conectado?