Wie man Perl-Hash auf Werte sortiert und die Schlüssel entsprechend sortiert (in zwei Arrays vielleicht)?

Question

In Perl, ich will den Schlüssel eines Hash-Wert sortieren, numerisch:

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

Herstellung von zwei Arrays:

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

Und dann ich den Werte-Array, so dass die Zahlen normalisieren will sind sequentiell:

(1,2,3,4) 

Wie mache ich das?

Answer 1

Sortieren Sie zuerst die Schlüssel nach dem zugehörigen Wert. Dann hole die Werte (z. B. unter Verwendung eines Hash-Slices).

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

Oder wenn Sie eine Hash-Referenz.

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

Bitte beachten Sie die Perl-FAQ Eintrag mit dem Titel "Wie sortiere ich einen Hash (optional mit Wert statt Schlüssel)"

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

Sie auch perldoc -q die zur Suche verwenden können FAQ lokal auf Ihrem Rechner, wie in perldoc -q sort, so habe ich Ihre Antwort gefunden.

Answer 4

Wie sortiere ich einen Hash (optional nach Wert statt Schlüssel)?

Um einen Hash zu sortieren, beginnen Sie mit den Tasten. In diesem Beispiel geben wir der Sortierfunktion eine Liste von Schlüsseln, die sie dann mit einem ASCII-Zeichen vergleicht (was möglicherweise von Ihren Gebietsschemaeinstellungen beeinflusst wird). Die Ausgabeliste hat die Schlüssel in ASCII-Reihenfolge. Sobald wir die Schlüssel haben, können wir sie durchlaufen, um einen Bericht zu erstellen, der die Schlüssel in ASCII-Reihenfolge auflistet.

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

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

Wir könnten mehr Phantasie im sort() Block obwohl. Anstatt die Schlüssel zu vergleichen, können wir einen Wert mit ihnen berechnen und diesen Wert als Vergleich verwenden.

Zum Beispiel unseres Bericht, um Groß- und Kleinschreibung zu machen, verwenden wir lc die Schlüssel in Kleinbuchstabe vor einem Vergleich:

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

Hinweis: Wenn die Berechnung teuer ist oder die Hash viele Elemente hat, können Sie möchte die Schwartzsche Transformation betrachten, um die Berechnungsergebnisse zwischenzuspeichern.

Wenn wir stattdessen nach dem Hash-Wert sortieren möchten, verwenden wir den Hash-Schlüssel, um nachzuschlagen. Wir bekommen immer noch eine Liste von Schlüsseln, aber diesmal sind sie nach ihrem Wert sortiert.

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

Von dort können wir komplexer werden. Wenn die Hash-Werte identisch sind, können wir eine sekundäre Sortierung für den Hash-Schlüssel bereitstellen.

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