Как сортировать по значению из хэша второго уровня в Perl?

Question

my $hash_ref = { 
    one => { val => 1, name => 'one' }, 
    three => { val => 3, name => 'three'}, 
    two => { val => 2, name => 'two' }, 
}; 

Я хотел бы отсортировать $hash_ref так, что Еогеасп бы заказать их

$hash_ref->{$key}->{'val'} 

one 
two 
three 

Любые предложения?

Answer 1

@sorted_list является массивом ссылок на отсортированные хэш-элементов:

@sorted_list = sort { $a->{'val'} <=> $b->{'val'} } values %{$unsorted_hash_ref}; 

Вы можете использовать его так:

#!/usr/bin/perl 

my $hash_ref = { 
    one => { val => 1, name => 'one' }, 
    three => { val => 3, name => 'three' }, 
    two => { val => 2, name => 'two' }, 
}; 

foreach $elem (sort { $a->{'val'} <=> $b->{'val'} } values %{$hash_ref}) { 
    print "$elem->{'val'} : $elem->{'name'}\n"; 
} 

Выход:

1 : one 
2 : two 
3 : three 

Answer 2

Хэш-таблицы Дон» t имеет какой-то конкретный порядок. Тем не менее, вы можете сортировать ключи в массиве и использовать его для перебора хэша:

my $hash_ref = { 
    one => { val => 1, name => 'one'}, 
    three => { val => 3, name => 'three'}, 
    two => { val => 2, name => 'two'}, 
}; 

use strict; 
use warnings; 
use Lingua::EN::Words2Nums; 

foreach my $key (sort { words2nums($a) <=> words2nums($b) } keys %$hash_ref) 
{ 
    # do something with $hash_ref->{$key} 
    print "processing key $key.\n"; 
} 

Вы можете определить, что вы хотите в качестве способа сортировки; см. perldoc -f sort для более подробной информации. Преобразование от порядкового численного текста к арифметическим значениям осуществляется с помощью Lingua::EN::Words2Nums (это тоже кардинальные числа).

Answer 3

use strict; 
use warnings; 

my %hash_ref = (
one => { val => 1, name => 'one' }, 
three => { val => 3, name => 'three'}, 
two => { val => 2, name => 'two' }, 
); 

foreach my $key(sort {$hash_ref{$a}{val} <=> $hash_ref{$b}{val}} keys %hash_ref) { 
my $value = $hash_ref{$key}{val}; 
my $name = $hash_ref{$key}{name}; 
print "$name -> $value\n"; 
} 

output: 
one -> 1 
two -> 2 
three -> 3 

Answer 4

#!/usr/bin/perl 


my $hash_ref = (
       one => {val => 1, name => "one"}, 
       three => {val => 3, name => "three"}, 
       two => {val => 2, name => 'two'}, 
       ); 

foreach $elem(sort {$$hash_ref{$a}{val} <=> $$hash_ref{$b}{val}} keys %$hash_ref){ 
    my $value = $hash_ref->{$elem}{val}; 
    my $name = $hash_ref->{$elem}{name}; 
    print "$name -> $value\n"; 
} 

OutPut: 
one -> 1 
two -> 2 
three -> 3