Sortierte Ausgabe von Werten aus einer Datenbank (Allgemeines zu Perl)

[thread]20325[/thread]

Sortierte Ausgabe von Werten aus einer Datenbank

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+3 replies
Gast Andi123

2017-07-10 11:53
Hallo,

ich lese aus einer Datenbank zwei Spalten aus
Code (perl): (dl )

1 2

my $statement = "SELECT DISTINCT(Rubrik), Code FROM ... ORDER BY Rubrik"; my %categories = @{$dbh->selectcol_arrayref($statement, { Columns=>[2,1] })};
Ich möchte dann das Ergebnis gern sortiert nach 'Rubrik' als Value und 'Code' als Key in einem Hash vorliegen haben.
'Rubrik' ist ein String.

Auch wenn ich per SQL-Befehl eine Sortierung vornehme und das so in den Hash ausgebe, ist '%categories' erst mal unsortiert.

Quasi meine Frage: Wie sortiere ich einen Hash nach dem Value?

Danke
Last edited: 2017-07-10 12:01:05 +0200 (CEST)
- GwenDragon
  
  2017-07-10 12:37
  User since
  2005-01-17
  14607 Artikel
  Admin1
  Hashes sind nie sortiert.
  https://perlmaven.com/how-to-sort-a-hash-in-perl
  
  Du kannst nur die Keys in ein Array speichern, das und dann über diese sortierten Keys den Hash auslesen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  my %category = ( 'Zett' => 'das ist ein Z', 'Test' => 'Test oder nicht, das ist die Frage', 'BCD' => 'Means what?' ); my @category_keys = keys %category; for my $key (sort @category_keys) { # do something with the values say $k, " ist in Wirklichkeit dies: ", $category{$key}; }
  
  Aber es existieren Perl-Module damit du sortierte Hashes einfacher nutzen kannst wie bei Tie::IxHash oder Tie::SortHash oder Sort::Hash. Schau mal diese an.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- rosti
  
  2017-07-10 14:44
  User since
  2011-03-19
  3276 Artikel
  BenutzerIn
  Wenn Du schon ein sortiertes Array kriegst, ist es unsinnig daraus einen Hash zu machen. Also nimm das Array und guck Dir mal die Slice-Option an:
  
  Code (perl): (dl )
  
  [{},{},{},{},{},{}]
  
  Siehe perldoc DBI
  Last edited: 2017-07-10 14:48:46 +0200 (CEST)

View all threads created 2017-07-10 11:53.