Sort Array of Hashes by Key (gelöst) (Allgemeines zu Perl)

[thread]17764[/thread]

Sort Array of Hashes by Key [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+8 replies
devrand

2012-09-18 21:12
User since
2012-09-18
5 Artikel
BenutzerIn
Hallo zusammen,

folgende Datenstruktur moechte ich nach den Keys (ZLANED, E3000E, IWWAST, UXWAGL) alphabetisch sortieren:
Code (perl): (dl )

1 2 3 4 5 6 7 8

my @unsorted = ( { 'ZLANED' => [ { 'CO' => 'AAA' }, { 'AT' => 'AA' } ] }, { 'E3000E' => [ { 'CO' => '123' }, { 'AT' => '00' } ] }, { 'IWWAST' => [ { 'CO' => 'ABC' }, { 'AT' => 'AA' } ] }, { 'UXWAGL' => [ { 'CO' => 'ABC' }, { 'AT' => 'EF' } ] }, { 'E3000E' => [ { 'CO' => '123' }, { 'AT' => 'CC' } ] }, { 'IWWAST' => [ { 'CO' => 'AAA' }, { 'AT' => 'AB' } ] }, );
Ergebnis:
Code (perl): (dl )

1 2 3 4 5 6 7 8

my @sorted = ( { 'E3000E' => [ { 'CO' => '123' }, { 'AT' => '00' } ] }, { 'E3000E' => [ { 'CO' => '123' }, { 'AT' => 'CC' } ] }, { 'IWWAST' => [ { 'CO' => 'ABC' }, { 'AT' => 'AA' } ] }, { 'IWWAST' => [ { 'CO' => 'AAA' }, { 'AT' => 'AB' } ] }, { 'UXWAGL' => [ { 'CO' => 'ABC' }, { 'AT' => 'EF' } ] }, { 'ZLANED' => [ { 'CO' => 'AAA' }, { 'AT' => 'AA' } ] }, );
Ich habe mich in sort (cmp) bzw. map schon eingelesen, aber ich checks nicht...

Danke!
Last edited: 2012-09-18 21:32:07 +0200 (CEST)
- +7 replies
- Linuxer
  
  2012-09-18 22:05
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Beispielsweise so:
  
  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/env perl use strict; use warnings; my @unsorted = ( { 'ZLANED' => [ { 'CO' => 'AAA' }, { 'AT' => 'AA' } ] }, { 'E3000E' => [ { 'CO' => '123' }, { 'AT' => '00' } ] }, { 'IWWAST' => [ { 'CO' => 'ABC' }, { 'AT' => 'AA' } ] }, { 'UXWAGL' => [ { 'CO' => 'ABC' }, { 'AT' => 'EF' } ] }, { 'E3000E' => [ { 'CO' => '123' }, { 'AT' => 'CC' } ] }, { 'IWWAST' => [ { 'CO' => 'AAA' }, { 'AT' => 'AB' } ] }, ); # Keyword: Schwartzian Transform my @sorted = map { $_->[0] } sort { $a->[1] cmp $b->[1] } map { [ $_, keys %$_ ] } @unsorted; require Data::Dumper; print Data::Dumper->new( [ \@sorted ], [ 'sorted' ] )->Maxdepth(2)->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!
  - +2 replies
  - devrand
    
    2012-09-18 22:29
    
    User since
    2012-09-18
    5 Artikel
    BenutzerIn
    
    Ich weiss zwar nicht, wie Schwartzian Transform im einzelnen funktioniert, aber Danke fuer den Hinweis, genial!
    - Linuxer
      
      2012-09-18 22:44
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Hi,
      
      schauen wir uns doch mal den Code an:
      
      Code: (dl )
      
      1 2 3 4 5
      
      my @sorted = map { $_->[0] } sort { $a->[1] cmp $b->[1] } map { [ $_, keys %$_ ] } @unsorted;
      
      Am besten liest man es von hinten nach vorne:
      
      map { [ $_, keys %$_ ] } @unsorted
      für jedes Element von @unsorted wird eine eigene Array-Referenz erzeugt; das originale Element ist das erste Element, die weiteren Elemente sind die Schlüssel des "internen Hashes". Wir haben Glück, dass jeder Hash nur einen Schlüssel hat, daher ist das zweite Element eben genau der Schlüssel, nach dem wir sortieren wollen.
      
      sort { $a->[1] cmp $b->[1] }
      sort bekommt jetzt diese Liste von Array-Referenzen und sortiert diese lexikalisch nach dem zweiten Element
      
      my @sorted = map { $_->[0] }
      dieses map liefert nun aus der sortierten Liste von Array-Referenzen die jeweils ersten Elemente. Da hatten wir ja die Originale abgelegt, also liefert es uns nun die Hash-Referenzen aus @unsorted in der gewünschten Reihenfolge, die nun in @sorted abgelegt werden.
      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!
  - +4 replies
  - pq
    
    2012-09-18 22:50
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    wobei ich mich aber frage, ob das hier lohnt. eigentlich dürfte es auch ein einfaches sort schnell genug erledigen, daher der vollständigkeit halber:
    
    Code (perl): (dl )
    
    1 2 3
    
    my @sorted = sort { (keys %$a)[0] cmp (keys %$b)[0] } @unsorted;
    
    @devrand: die schwartzian transform (ST) ist besonders dann hilfreich, wenn im sort-block aufwendige dinge gemacht werden müssen, da der sort-block jedes element mehrere male anfassen muss. mit ST muss jedes element nur einmal angefasst werden.
    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
    - Linuxer
      
      2012-09-19 00:29
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Stimmt, manchmal sieht man die einfachen Lösungen nicht...
      
      PS: Wenn ich meinen schnell zusammengehackten Benchmark anschaue, dann ist es gar keine Frage, ob Dein direkter sort das schnell genug erledigt...
      
      Code: (dl )
      
      1 2 3 4 5
      
      perl /tmp/x.pl Testing with 704 values. Rate ST direct ST 568/s -- -100% direct 4273666/s 752122% --
      
      /tmp/x.pl (7.0kb)
      Last edited: 2012-09-19 00:35:44 +0200 (CEST)
      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!
      - +2 replies
      - pq
        
        2012-09-19 01:03
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        so ein ergebnis hätte ich jetzt allerdings auch nicht erwartet...
        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
        
        devrand
        
        2012-09-28 21:14
        
        User since
        2012-09-18
        5 Artikel
        BenutzerIn
        
        Vielen Dank noch mal!
        
        Mit eurer Hilfe habe ich die naechste Anforderung geloest:
        
        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
        
        #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my @array = ( { 'ccc' => [ {'c' => 'c1'}, {'c' => 'c2'}, {'xx' => 'c3'} ] }, { 'aaa' => [ {'a' => 'a1'}, {'a' => 'a2'}, {'xx' => 'a3'} ] }, { 'bbb' => [ {'b' => 'b1'}, {'b' => 'b2'}, {'xx' => 'b3'} ] }, ); my @temp = map { $_->[0] } sort { $a->[1] cmp $b->[1] } map { [ $_, find_val($_) ] } @array; sub find_val { for my $ref ($_) { for my $element (keys %$ref) { return $ref->{$element}->[2]->{'xx'}; } } } print Dumper(@temp);
        
        Gruss
        --@devrand

View all threads created 2012-09-18 21:12.