Hash sortieren (Allgemeines zu Perl)

[thread]14870[/thread]

Hash sortieren

Leser: 33

Articles: hide open all | hide show old branches

+20 replies
mikey_b

2010-03-26 02:59
User since
2010-03-15
21 Artikel
BenutzerIn
Dankeschön. Das hat geklappt.
hatte gerad als nächstes problem ein hash nach Werte zu sortieren. Hab nach dem Thema in forum gesucht und gesehen dass du das auch beantwortet hast. Toll! Hier kann man echt viel lernen.

Aber ich begreife nicht warum man nur die keys bekommt wenn man schreibt:
Code: (dl )

1 2

foreach my $key (sort (values(%hash))) { print "$key $hash{$key}\n";
}

Splitted from Such (Hash, Array) msg #135309
Last edited: 2010-03-26 22:08:12 +0100 (CET)
- +19 replies
- renee
  
  2010-03-26 07:04
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Weil Du die Variable zwar "$key" nennst, in Wirklichkeit aber die Werte des Hashs drin stecken. Du schreibst im Schleifenkopf ja "values %hash".
  
  Wenn Du die Keys nach den Werten sortiert haben willst, dann kannst Du einfach
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my @keys_sorted = sort{ $hash{$a} <=> $hash{$b} }keys %hash; for my $key ( @keys_sorted ) { print "$key -> $hash{$key}\n"; }
  
  machen...
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +18 replies
  - mikey_b
    
    2010-03-26 12:03
    User since
    2010-03-15
    21 Artikel
    BenutzerIn
    
    Ich kann den hash nach Werten sortieren, wenn es definiert ist im Programm. Aber wenn ich es von einer Textdatei lese dann klappt das sortieren nicht.
    Als Beispiel im ersten Programm klappt das:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    use strict; my %hash = ("woche1" => "4", "woche2" => "3", "woche3" => "1", "woche4" => "7", "woche5" => "2"); my @keys_sorted = sort{ $hash{$b} <=> $hash{$a} }keys %hash; for my $key ( @keys_sorted ) { print "$key -> $hash{$key}\n"; }
    
    aber wenn ich das ganze aus einer Textdatei: text.txt
    woche1 4
    woche2 3
    woche3 1
    woche4 7
    woche5 2
    mit dem skript:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14
    
    use strict; my %hash = (); open (AN, '<', $ARGV[0] ) or die "$!\n"; while (my $line = <AN>) { chomp $line; my ($k, $v) = split / /, $line; $hash{$k} = $v; my @keys_sorted = sort{ $hash{$b} <=> $hash{$a} }keys %hash; for my $key ( @keys_sorted ) { print "$key -> $hash{$key}\n"; } }
    
    wird es nicht sortiert.
    Was mache ich falsch ?
    - +17 replies
    - pq
      
      2010-03-26 12:22
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      schau dir mal deine einrückungen an und die geschweiften klammern dazu.
      du solltest immer zusehen, dass deine einrückung zu dem aktuellen block passt, sonst bringt einrückung nämlich gar nichts, sondern verwirrt nur.
      im zweiten skript zeile 9 schreibst du keine einrückung, obwohl du noch in der while-schleife bist, die die datei ausliest.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +16 replies
      - mikey_b
        
        2010-03-26 13:53
        
        User since
        2010-03-15
        21 Artikel
        BenutzerIn
        
        hmm ich hab jetzt noch mal versucht mit Einrückungen und geschweifte klammer. Aber entweder bekomme ich die daten unsortiert oder nur die letzte Zeile ausgegeben.
        Ich dachte der Fehler hat vll mit der Art und weise wie ich die datei lese ?
        
        +15 replies
        
        renee
        
        2010-03-26 14:02
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Das sortieren sollte *nach* der Schleife passieren...
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +14 replies
        
        mikey_b
        
        2010-03-26 14:23
        
        User since
        2010-03-15
        21 Artikel
        BenutzerIn
        
        meinst du das so ? Das habe vorhin versucht.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        use strict; my %hash = (); open (AN, '<', $ARGV[0] ) or die "$!\n"; while (my $line = <AN>) { chomp $line; my ($k, $v) = split / /, $line; $hash{$k} = $v; } my @keys_sorted = sort{ $hash{$b} <=> $hash{$a} }keys %hash; for my $key ( @keys_sorted ) { print "$key -> $hash{$key}\n"; }
        
        So krieg ich nur "woche -> 2" als Ausgabe
        
        +2 replies
        
        Gast wer
        
        2010-03-26 14:39
        
        Irgendwas stimmt mit deiner Eingabedatei nicht.
        
        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
        
        #!/usr/bin/perl use strict; use warnings; my %hash = (); while (my $line = <DATA>){ chomp $line; my ($k, $v) = split / /, $line; $hash{$k} = $v; } my @keys_sorted = sort{ $hash{$b} <=> $hash{$a} }keys %hash; for my $key ( @keys_sorted ){ print "$key -> $hash{$key}\n"; } __DATA__ woche1 4 woche2 3 woche3 1 woche4 7 woche5 2
        
        AUSGABE:
        
        Code: (dl )
        
        1 2 3 4 5
        
        woche4 -> 7 woche1 -> 4 woche2 -> 3 woche5 -> 2 woche3 -> 1
        
        Last edited: 2010-03-26 14:49:20 +0100 (CET)
        
        mikey_b
        
        2010-03-26 15:56
        
        User since
        2010-03-15
        21 Artikel
        BenutzerIn
        
        ja stimmt da ist irgendetwas mit der Eingabedatei:
        wenn ich programm schreibe mit einem hash als ausgabe und schreibe die Ausgabe direkt in 'ner textdatei hash.pl > text.txt, dann klappt es mit dem sortieren.
        aber so bald ich selber eine textdatei schreibe und das speichere --> wird es nicht sortiert.
        Ich hab keine Idee woran es liegt. leider möchte ich selber eine textdatei schreiben nicht immer mit 'nem perl programm.
        kann das vll an dem Editor liegen. ich benutze "EngineSite Perl editor"
        
        +11 replies
        
        renee
        
        2010-03-26 15:53
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Auf welchem Betriebssystem läuft das Perl-Skript, auf welchem wurde die Datei erzeugt? Das klingt sehr stark nach einem Problem mit den Zeilenumbrüchen?
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +10 replies
        
        mikey_b
        
        2010-03-26 15:58
        
        User since
        2010-03-15
        21 Artikel
        BenutzerIn
        
        oh hab gerad die Nachricht gesehen.
        ich arbeite unter Windows XP
        
        +9 replies
        
        Gast wer
        
        2010-03-26 16:07
        
        Meine Vermutung:
        
        Du speicherst die Eingabedatei im Unix-Format.
        Unter Windows ist das Zeilenende "\x0D\x0A" unter Unix "\x0A". Das gibt unter Windows Probleme, denn perl nutzt unter Windows das Windows-Zeilenende.
        Das bedeutet, dass unter Windows normalerweise keine Unix-Zeilenenden erkannt werden.
        Da gibt es zwei Lösungen:
        
        1. Du speicherst die Eingabdatei im Windowsformat
        2. Du setzt den Eingabeseparator auf "\x0A"
        
        Code (perl): (dl )
        
        local $/="\x0A";
        
        Last edited: 2010-03-26 16:10:25 +0100 (CET)
        
        +8 replies
        
        mikey_b
        
        2010-03-26 21:56
        
        User since
        2010-03-15
        21 Artikel
        BenutzerIn
        
        jetzt klappt's
        Window schreibt am Ende \n\r
        mit dem regulären Ausdruck $text =~ s/\r//g; wird es entfernt.
        
        Aber noch 'ne andere Frage, warum klappt es nicht mit dem gleichen Skript wenn man im Text gleiche Schlüsseln hat. Ich dachte die Sortierung hängt nur mit den Werten. Mit dem folgenden hash
        woche 4
        woche 3
        woche 1
        woche 7
        woche 2
        kriege ich wieder nur "woche -> 2" als Ausgabe.
        könnt ihr mir das erklären warum ?
        
        pq
        
        2010-03-26 22:05
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        es ist nunmal die eigenschaft eines hashs, dass er eindeutige keys hat.
        warum schreibst du das ganze in einen hash, wenn du mehrere gleiche keys hast und am ende anscheinend doch nur nach der zahl sortieren willst?
        ich frag mich auch, was das mit dem ursprünglichen problem zu tun hat.
        mach doch am besten das nächste mal einen neuen thread auf, wenn es um was anderes geht.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        chomp(my @lines = <AN>); my @items = map { [split " ", $_, 2] } @lines; my @sorted = sort { $b->[1] <=> $a->[1] } @items; print "$_->[0] -> $_->[1]\n" for @sorted;
        
        edit: duplizierten code gelöscht
        Last edited: 2010-03-26 22:10:08 +0100 (CET)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +6 replies
        
        topeg
        
        2010-03-26 22:07
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        Hash Schlüssel | | Hash Wert | | V V woche 4 woche 3 woche 1 woche 7 woche 2
        
        Wenn du immer den selben Hash-Schlüssel verwendest bekommt der Hash-Eintrag mit dem Hash-Schlüssel immer den letzen gelesen Wert. Oder was hast du erwartet?
        
        +5 replies
        
        mikey_b
        
        2010-03-26 22:21
        
        User since
        2010-03-15
        21 Artikel
        BenutzerIn
        
        Ok. ich dachte das wäre auch möglich ein hash nach werten zu sortieren auch wenn es manchmal die schlüsseln gleich sind aber doch unterschiedliche werte haben.
        Das ist geanu der fall im Text, gleiche keys manchmal und die wollte ich nach ihren werten sortieren.
        Thx
        
        +4 replies
        
        pq
        
        2010-03-26 23:00
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2010-03-26T21:21:27 mikey_b
        Ok. ich dachte das wäre auch möglich ein hash nach werten zu sortieren
        
        ja, das ist es auch.
        
        Quote
        auch wenn es manchmal die schlüsseln gleich sind
        
        ein hash kann nicht mehrere gleiche schlüssel haben. ein hash ist eine zuordnung von werten zu schlüsseln. wenn ein schlüssel mehrere werte haben soll, müsstest du aus dem wert eine array-referenz machen. aber für das, was du tun willst (die zeilen nach der zahl zu sortieren) brauchst du gar keinen hash.
        
        funktioniert denn mein code?
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +3 replies
        
        mikey_b
        
        2010-03-27 12:03
        
        User since
        2010-03-15
        21 Artikel
        BenutzerIn
        
        Hello
        Danke. Dein code funktioniert.
        Aber jetzt hab ich schon wieder einen Fall mit
        
        woche 4
        woche 3
        week 2
        semana 1
        woche 7
        week 4
        semana 9
        vecka 3
        
        Mit deinem code wird es korrekt sortiert. Ich versuche jetzt für jeden Typ nur das erste Worte mit dem höchstem Wert, sodass sich das Wort sich nicht wiederholt.
        z.B:
        semana 9
        woche 7
        week 4
        vecka 3
        
        hast du einen Vorschlag ?
        
        +2 replies
        
        topeg
        
        2010-03-27 13:49
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Hier das Beispiel von "wer" angepasst auf deine Anforderung
        
        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
        
        #!/usr/bin/perl use strict; use warnings; my %hash = (); while (my $line = <DATA>){ chomp $line; my ($k, $v) = split / /, $line; # geänderte zeile $hash{$k} = $v if(!exists($hash{$k}) or $hash{$k} < $v); } my @keys_sorted = sort{ $hash{$b} <=> $hash{$a} }keys %hash; for my $key ( @keys_sorted ){ print "$key -> $hash{$key}\n"; } __DATA__ woche 4 woche 3 week 2 semana 1 woche 7 week 4 semana 9 vecka 3
        
        Code: (dl )
        
        1 2 3 4
        
        semana -> 9 woche -> 7 week -> 4 vecka -> 3
        
        mikey_b
        
        2010-03-27 18:11
        
        User since
        2010-03-15
        21 Artikel
        BenutzerIn
        
        Hi
        Dankeschön. Das tut genau was ich brauche.
        Besten Dank.
        Mike

View all threads created 2010-03-26 22:08.