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

Question

Я хочу сортировать хэш, который на самом деле имеет хэш в качестве значения. Например:

my %hash1=(
    field1=>"", 
    field2=>"", 
    count=>0, 
); 
my %hash2; 
$hash2{"asd"}={%hash1}; 

и я вставил много хешей к %hash2 с различными значениями количества в %hash2.

Как я могу сортировать %hash1 в соответствии со значением счета hash1?

Есть ли способ сделать это без реализации quicksort вручную, например, с функцией сортировки Perl?

Answer 1

my @hash1s = sort {$a->{count} <=> $b->{count}} values %hash2; 

Answer 2

Если вы хотите, чтобы получить список хэшей (как hash1), отсортированных по графу из значений в hash2, это может помочь:

@sorted_hash1_list = sort sort_hash_by_count_key($a, $b) (values (%hash2); 


# This method can have any logic you want 
sub sort_hash_by_count_key { 
    my ($a, $b) = @_; 
    return $a->{count} <=> $b->{count}; 
} 

Answer 3

Смотрите http://perldoc.perl.org/functions/sort.html для Лота контекста хау сортировки работ в Perl.

И вот пример .. пытаясь быть читаемым, а не perlish.

#!/usr/bin/perl 
# Sort Hash of Hashes by sub-hash's element count. 
use warnings; 
use strict; 


my $hash= { 
      A=>{C=>"D",0=>"r",T=>"q"} 
      ,B=>{} 
      ,C=>{E=>"F",G=>"H"} 
      }; 

sub compareHashKeys {0+(keys %{$hash->{$a}}) <=> 0+(keys %{$hash->{$b}}) } 

my @SortedKeys = sort compareHashKeys keys %{$hash}; 
print join ("," , @SortedKeys) ."\n"; 

Answer 4

От perlfaq4, ответ на "http://faq.perl.org/perlfaq4.html#How_do_I_sort_a_hash" имеет большую часть информации, которую нужно собрать свой код.

Возможно, вы также захотите ознакомиться с разделом «Сортировка» в Изучение Perl.

У Криса есть прекрасный ответ, хотя я ненавижу использовать values. Более привычный способ сделать то же самое, чтобы пройти через ключи хеша верхнего уровня, но своего рода ключом второго уровня:

my @sorted_hashes = 
    sort { $hash2->{$a}{count} <=> $hash2->{$b}{count} } 
    keys %hash2; 

я сделать это таким образом, потому что это немного меньше галлюциногенный ,

---

Как отсортировать хэш (необязательно по значению вместо ключа)?

(отвечает Брайан Д. Фой)

Для сортировки хэш, начните с ключами. В этом примере мы приводим список ключей функции сортировки, который затем сравнивает их ASCIIbetically (на которые могут влиять ваши настройки локали). Выходной список имеет ключи в ASCII-битезированном порядке. Когда у нас есть ключи, мы можем пройти через них, чтобы создать отчет, в котором перечислены ключи в ASCII-виде.

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

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

Мы могли бы получить больше причуд в блоке sort(). Вместо сравнения ключей мы можем вычислить значение с ними и использовать это значение в качестве сравнения.

Например, чтобы сделать наш запрос нечувствительным к регистру, мы используем последовательность \ L в строке с двумя кавычками, чтобы сделать все в нижнем регистре. Затем блок sort() сравнивает нижние значения, чтобы определить, в каком порядке положить ключи.

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

Примечания: если вычисление дорого или хэш имеет много элементов, вы можете захотеть взглянуть на Шварц Transform для кэширования результатов вычислений.

Если мы хотим отсортировать по хеш-значению вместо этого, мы используем хеш-ключ, чтобы посмотреть его. Мы по-прежнему получаем список ключей, но на этот раз они упорядочены по их стоимости.

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

Оттуда мы можем усложниться. Если значения хэша одинаковы, мы можем предоставить вторичный вид хэш-ключа.

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

Answer 5

Для сортировки по числовому использованию < => и для использования в строке cmp.

# sort by the numeric count field on inner hash 
# 
foreach my $key (sort {$hash2{$a}->{'count'} <=> $hash2{$b}->{'count'}} keys %hash2) { 
    print $key,$hash2{$key}->{'count'},"\n"; 
} 

# sort by the string field1 (or field2) on the inner hash 
# 
foreach my $key (sort {$hash2{$a}->{'field1'} cmp $hash2{$b}->{'field1'}} keys %hash2) { 
    print $key,$hash2{$key}->{'field1'},"\n"; 
} 

Чтобы изменить порядок просто поменять местами $ а и $ Ь:

# sort by the numeric count field on inner hash 
# 
foreach my $key (sort {$hash2{$a}->{'count'} <=> $hash2{$b}->{'count'}} keys %hash2) { 
    print $key,$hash2{$key}->{'count'},"\n"; 
} 

# sort by the string field1 (or field2) on the inner hash 
# 
foreach my $key (sort {$hash2{$a}->{'field1'} cmp $hash2{$b}->{'field1'}} keys %hash2) { 
    print $key,$hash2{$key}->{'field1'},"\n"; 
}