Numiersche Sortierfunktion (Allgemeines zu Perl)

[thread]17939[/thread]

Numiersche Sortierfunktion

Tags: perl5 sort hash sortieren Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+14 replies
Gast Gast

2012-11-29 07:47

Hallo an alle,

es geht um das Folgende. Ich möchte eine Sortierfunktion schreiben, die mit die Keys aus einem Hash auf eine bestimmte Weise sortiert.

Die Keys enthalten jeweils ein bestimmtes Wort und die zugeordneten Werte eine Zahl, die die Anzahl ihres jeweiligen Wortes in einem Text anzeigen. Es geht also um eine Häufigkeitsliste.

Nun soll die Funktion mir die Keys so sortieren, dass der häufigste als erstes angezeigt wird und der am wenigsten vorkommende als letztes. Gleichzeitig sollen Wörter, die sich nur in einem Großbuchstaben unterscheiden (z.B. "gegen" und "Gegen") in der Liste direkt untereinander stehen. Wenn mehrere Wörter gleich oft vorkommen (z.B. "als", "mit" und "wie" kommen alle jeweils fünfmal vor in dem Text) alphabetisch geordnet werden.

Also:
1) numerisch sortierte Keys
2) Wörter mit Großbuchstaben stehen direkt über demselben Wort in Kleinbuchstaben
3) Wörter mit derselben Häufigkeit sollen alphabetisch geordnet werden.

Und das alles innerhalb einer einzigen Liste. D.h. nicht jeweils eine Liste für eine Aufgabe.

Ich danke euch schon mal für eure Hilfe :-)
Last edited: 2012-11-29 09:32:19 +0100 (CET)
- +4 replies
- Muffi
  
  2012-11-29 09:46
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Punkt 1 und 2 widersprechen sich.
  1 + 1 = 10
  - +3 replies
  - bianca
    
    2012-11-29 10:11
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2012-11-29T08:46:03 Muffi
    Punkt 1 und 2 widersprechen sich.
    
    Warum?
    1. ist sort{$a <=> $b} keys %hash
    und 2. ist lc()
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - Muffi
      
      2012-11-29 10:21
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Naja, entweder ich sortier die Wörter nach Anzahl oder nach "Ähnlichkeit". Beides gleichzeitig geht nicht.
      
      Was ich mir vorstellen könnte, was vielleicht gemeint sein könnte ist, dass das Oberste der "ähnlichen" Wörter nach Anzahl reinsortiert wird und die anderen drunter, ohne Rücksicht auf die Anzahl.
      Es könnt aber auch sein, dass er da irgendeine Durchschnittsanzahl ausrechnen will oder wasweissich.
      1 + 1 = 10
      - bianca
        
        2012-11-29 10:26
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2012-11-29T09:21:08 Muffi
        Naja, entweder ich sortier die Wörter nach Anzahl oder nach "Ähnlichkeit". Beides gleichzeitig geht nicht.
        
        Ja, die Fragestellung könnte schärfer formuliert sein.
        Aber dies hier:
        
        Guest Gast
        Wenn mehrere Wörter gleich oft vorkommen (z.B. "als", "mit" und "wie" kommen alle jeweils fünfmal vor in dem Text) alphabetisch geordnet werden.
        
        bedeutet für mich, dass er in mehreren Tiefen sortieren will.
        Mal schauen, was er im Verlauf alles versucht. Er meldet sich ja dann sicher nochmal :)
        10 print "Hallo"
        20 goto 10
- +2 replies
- bianca
  
  2012-11-29 09:47
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Du kannst mehrere Suchkriterien einfach mit oder in beliebiger Tiefe verknüpfen.
  
  Also z.B. sort {lc $a cmp lc $b || $hash{$a} <=> $hash{$b}}
  Das sortiert erst alphabetisch nach den Keys und dann nummerisch nach den Values.
  lc heißt lowercase und führt dazu, dass Groß- und Kleinschreibung bei der Sortierung nicht beachtet wird (dein Punkt 2).
  10 print "Hallo"
  20 goto 10
  - gelöscht 2012-11-29 10:26
- Raubtier
  
  2012-11-29 10:25
  
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  
  Ich glaube, du musst mal ein Beispiel geben, damit wir verstehen, wie genau die Sortierung nun sein soll.
- GUIfreund
  
  2012-11-29 14:36
  
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  
  Guest Gast
  1) numerisch sortierte Keys
  2) Wörter mit Großbuchstaben stehen direkt über demselben Wort in Kleinbuchstaben
  3) Wörter mit derselben Häufigkeit sollen alphabetisch geordnet werden.
  
  Da man bei sort keine sich widersprechenden Sortierkriterien angeben darf, wirst du Punkt 2 in einem 2. Durchlauf erledigen müssen.
  Gruß
  GUIfreund
- +5 replies
- hlubenow
  
  2012-11-29 17:28
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Guest Gast
  Die Keys enthalten jeweils ein bestimmtes Wort und die zugeordneten Werte eine Zahl, die die Anzahl ihres jeweiligen Wortes in einem Text anzeigen. Es geht also um eine Häufigkeitsliste.
  
  Nun soll die Funktion mir die Keys so sortieren, dass der häufigste als erstes angezeigt wird und der am wenigsten vorkommende als letztes.
  
  Also, dazu würde ich erstmal einen neuen Hash erzeugen, der als Keys die Zahlen der Häufigkeiten enthält und als Wert jeweils ein Array mit den Wörtern, die der jeweiligen Häufigkeit entsprechen.
  Das wäre dann ein Hash of Arrays. In Perl ist das für mich etwas schwierig, auf die Schnelle konnt' ich nur mal ein Beispiel in Python formulieren:
  
  Code (python): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  #!/usr/bin/env python # coding: iso-8859-1 h = {"als" : 5, "wie" : 3, "Von" : 3, "zu" : 5, "von" : 10} h2 = {} for i in h.keys(): if not h2.has_key(h[i]): h2[h[i]] = [] h2[h[i]].append(i) print h2
  
  Aber es wäre durchaus möglich, das nach Perl zu übersetzen.
  
  Danach kann man diesen Hash nach den Zahlen sortieren und sich dann überlegen, was man mit den Werten in den enthaltenen Arrays anstellt.
  - +2 replies
  - Linuxer
    
    2012-11-29 17:41
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    eine Variante in Perl:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
    
    #! /usr/bin/perl use strict; use warnings; my %words = qw( als 5 wie 3 Von 3 zu 5 von 10 ); my %by_number; while ( my ($k,$v) = each %words ) { push @{ $by_number{$v} }, $k; } require Data::Dumper; print Data::Dumper->new( [ \%by_number ], [ qw( *by_number ) ] )->Sortkeys(1)->Dump();
    
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - hlubenow
      
      2012-11-29 17:54
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      Cool, danke!
  - +2 replies
  - hlubenow
    
    2012-11-30 16:45
    User since
    2009-02-22
    875 Artikel
    BenutzerIn
    
    Hier nochmal eine etwas "wörtlichere" Übersetzung meines Ansatzes:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
    
    #!/usr/bin/perl use warnings; use strict; my %h = ("als" => 5, "wie" => 3, "Von" => 3, "zu" => 5, "von" => 10); my $i; my $u; my @k = keys(%h); my %h2 = (); foreach $i (@k) { if (! exists($h2{$h{$i}})) { $h2{$h{$i}} = []; } push( @{ $h2{$h{$i}} }, $i); } my @k2 = keys(%h2); @k2 = sort({$b <=> $a} @k2); foreach $i (@k2) { print "$i\t"; foreach $u (@{ $h2{$i} }) { print "$u, "; } print "\n"; }
    
    Der Code von Linuxer ist sicher schöner, wenn man ihn versteht. So leicht ist meiner allerdings auch nicht zu verstehen. :(
    Man müßte halt mit einem Hash von Arrays klarkommen. Diese Dinge sind z.B. in dem Buch "Intermediate Perl" und z.B. auch in "perldoc perllol" beschrieben. Wie der Titel des Buches schon sagt, geht das ein bißchen über das Anfänger-/Grundlagenwissen hinaus. Dennoch braucht man es häufiger, so daß es sich schon lohnt, sich damit einmal zu beschäftigen.
    - Patterner
      
      2012-11-30 17:13
      
      User since
      2007-01-02
      25 Artikel
      BenutzerIn
      
      Kleiner Hinweis:
      
      2012-11-30T15:45:42 hlubenow
      
      Code (perl): (dl )
      
      1 2 3
      
      if (! exists($h2{$h{$i}})) { $h2{$h{$i}} = []; }
      
      Den Teil braucht man eigentlich nicht, das geht automagisch und verwirrt (mich).
      “I’m working on it.”

View all threads created 2012-11-29 07:47.