¿Cómo ordenar perl hash en los valores y ordenar las claves de manera correspondiente (en dos matrices, tal vez)?

Question

En Perl, quiero ordenar las teclas de un hash por valor, numéricamente:

{ 
    five => 5 
    ten => 10 
    one => 1 
    four => 4 
} 

la producción de dos matrices:

(1,4,5,10) and (one, four, five, ten) 

y luego quiero para normalizar la matriz de valores tales que los números son secuenciales:

(1,2,3,4) 

¿Cómo puedo hacer esto?

Answer 1

Primero ordene las teclas por el valor asociado. Luego obtenga los valores (por ejemplo, usando una porción hash).

my @keys = sort { $h{$a} <=> $h{$b} } keys(%h); 
my @vals = @h{@keys}; 

O si tiene una referencia hash.

my @keys = sort { $h->{$a} <=> $h->{$b} } keys(%$h); 
my @vals = @{$h}{@keys}; 

Answer 2

my (@nums, @words); 
do { push @nums, shift @$_; 
    push @words, shift @$_; 
    } 
    foreach sort { $a->[0] <=> $b->[0] } 
      map { [ $h->{ $_ }, $_ ] } keys %$h 
    ; 

Answer 3

Por favor ver el Perl FAQ entrada titulada "¿Cómo puedo ordenar un hash (opcionalmente por valor en lugar de llave)"

http://perldoc.perl.org/perlfaq4.html#How-do-I-sort-a-hash-%28optionally-by-value-instead-of-key%29?

También puede utilizar perldoc -q para buscar la Preguntas frecuentes localmente en su máquina, como en perldoc -q sort, que es cómo encontré su respuesta.

Answer 4

¿Cómo puedo ordenar un hash (opcionalmente por valor en lugar de clave)?

Para ordenar un hash, comience con las teclas. En este ejemplo, proporcionamos la lista de claves para la función de clasificación que luego las compara ASCIIbetically (lo que puede verse afectado por la configuración de su configuración regional). La lista de salida tiene las teclas en orden ASCIIbético. Una vez que tenemos las claves, podemos revisarlas para crear un informe que enumera las claves en orden ASCIIbético.

my @keys = sort { $a cmp $b } keys %hash; 

foreach my $key (@keys) { 
    printf "%-20s %6d\n", $key, $hash{$key}; 
} 

Sin embargo, podríamos obtener más fantasía en el bloque sort(). En lugar de comparar las claves, podemos calcular un valor con ellas y usar ese valor como comparación.

Por ejemplo, para hacer que nuestro fin informe de mayúsculas y minúsculas, que el uso LC a minúsculas las llaves antes de compararlos:

my @keys = sort { lc $a cmp lc $b } keys %hash; 

Nota: si el cómputo es caro o el hash tiene muchos elementos, es posible quiero ver la Transformada Schwartzian para almacenar en caché los resultados del cálculo.

Si, en cambio, queremos ordenar por el valor hash, usamos la tecla hash para buscarlo. Todavía obtenemos una lista de claves, pero esta vez están ordenadas por su valor.

my @keys = sort { $hash{$a} <=> $hash{$b} } keys %hash; 

A partir de ahí podemos volvernos más complejos. Si los valores hash son los mismos, podemos proporcionar una ordenación secundaria en la tecla hash.

my @keys = sort { 
$hash{$a} <=> $hash{$b} 
or 
"\L$a" cmp "\L$b" 
} keys %hash;