Perl Hash für ein JSON Array sortieren (gelöst) (Perl/CGI)

[thread]15541[/thread]

Perl Hash für ein JSON Array sortieren [gelöst]

Leser: 19

Articles: hide open all | hide show old branches

+25 replies
cbxk1xg

2010-10-15 20:03
User since
2003-10-20
496 Artikel
BenutzerIn
Hallo!
Ich versuche grade aus einem Hash ein JSON Array zu erstellen. Da klappt auch ganz gut. Vor der Übergabe an das JSON Modul ziehe ich mich mir noch mit einer Regex bestimmte Key/Value Paare aus einem anderen Hash. Das klappt auch. Nun will ich aber meinen "finalen" Hash sortiert an das JSON Modul übergeben. Ich würde es gerne alphanumerisch sortieren und das dann noch mit case-ignore. Bei Arrays benutze ich für sowas eine "schwartzsche Transformation". Ich weiss nun aber leider nicht, wie man das mit einem Hash macht, da ein Hash ja per Definition unsortiert ist.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

use strict; use warnings; my %UDIoutput = ( 'versionNo' => $VAR{'versionNo'}, 'sitetitle' => $VAR{'sitetitle'}, 'author' => $VAR{'PIDauthor'}, ); for my $key (%CONFIG){ $UDIoutput{$key} = $CONFIG{$key} if $key =~m/UserVar\d{2}Name/g; } use JSON; my $json_text = to_json(\%UDIoutput); print $json_text;
Momentan kommt da sowas raus.
Code: (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

{ "UserVar05Name": "", "UserVar12Name": "", "UserVar07Name": "", "UserVar09Name": "", "UserVar10Name": "", "UserVar18Name": "", "UserVar20Name": "", "UserVar15Name": "", "UserVar14Name": "", "UserVar06Name": "", "UserVar16Name": "", "UserVar03Name": "", "UserVar13Name": "", "UserVar08Name": "", "UserVar02Name": "", "versionNo": "1.8.3", "UserVar11Name": "", "sitetitle": "Wunschjob gesucht", "author": "admin", "UserVar01Name": "", "UserVar04Name": "", "UserVar19Name": "", "UserVar17Name": "", }
- +2 replies
- moritz
  
  2010-10-15 20:11
  
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  
  2010-10-15T18:03:20 cbxk1xg
  Ich weiss nun aber leider nicht, wie man das mit einem Hash macht, da ein Hash ja per Definition unsortiert ist.
  
  Gar nicht.
  
  Oder mit einem Modul wie Tie::Hash::Sorted.
  Last edited: 2010-10-15 21:02:28 +0200 (CEST)
  Perl 6 - Perls Zukunft
  - cbxk1xg
    
    2010-10-15 20:20
    
    User since
    2003-10-20
    496 Artikel
    BenutzerIn
    
    Danke. Ich denke, ich hab mich noch nicht klar genug ausgedrückt. Das Modul JSON will entweder ein Array oder einen Hash als Übergabe. Ein Hash ist natürlich ideal, da am Ende alles in Javascript-ige Key-/Value pairs verpackt wird. Wenn ich in einer Schleife einen Hash sortiere muss ich aber auch etwas damit machen. In einen neuen Hash packen ist ja unfug, da unsortiert.
- +8 replies
- kristian
  
  2010-10-15 20:18
  
  User since
  2005-04-14
  684 Artikel
  BenutzerIn
  
  Wie kommst du darauf, dass das in JSON ein array ist?
  Zitat aus json.org:
  Quote
  JSON is built on two structures:
  
  * A collection of name/value pairs. In various languages, this is realized as an object, record, struct, dictionary, hash table, keyed list, or associative array.
  * An ordered list of values. In most languages, this is realized as an array, vector, list, or sequence.
  
  Also wenn dann ist es ein associatives array wie in PHP.
  - +7 replies
  - cbxk1xg
    
    2010-10-15 20:22
    
    User since
    2003-10-20
    496 Artikel
    BenutzerIn
    
    OK, das stimmt natürlich. Ich formuliere um. Wie kann ich die collection der name/value pairs ordnen, die mir das JSON Modul gebaut hat ordnen?
    - +5 replies
    - kristian
      
      2010-10-15 20:24
      
      User since
      2005-04-14
      684 Artikel
      BenutzerIn
      
      Ok, wie bzw. womit willst du es auf der "anderen Seite" bearbeiten?
      Einen Hash zu sortieren macht doch keinen Sinn, da man ohnehin über den key auf die value zugreift.
      - +4 replies
      - cbxk1xg
        
        2010-10-15 20:27
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        2010-10-15T18:24:41 kristian
        Ok, wie bzw. womit willst du es auf der "anderen Seite" bearbeiten?
        Einen Hash zu sortieren macht doch keinen Sinn, da man ohnehin über den key auf die value zugreift.
        
        Das ist absolut richtig. Aber ich schmeiße ja am Ende nur key/value pairs raus. Am Ende kommt da irgendein Javascript-ler und fummelt sich was daraus zusammen.
        
        +3 replies
        
        kristian
        
        2010-10-15 20:31
        
        User since
        2005-04-14
        684 Artikel
        BenutzerIn
        
        Dann mach doch ein Array, welches du mit Hashreferenzen befüllst.
        Dies Array kannst du sortieren, der JavaScriptologe kann darüber itterieren, muss dann allerdings wissen, das es jeweils ein Object (Hash) ist.
        
        +2 replies
        
        cbxk1xg
        
        2010-10-15 20:35
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        2010-10-15T18:31:45 kristian
        Dann mach doch ein Array, welches du mit Hashreferenzen befüllst.
        Dies Array kannst du sortieren, der JavaScriptologe kann darüber itterieren, muss dann allerdings wissen, das es jeweils ein Object (Hash) ist.
        
        JavaScriptologe - Ganz großes Tennis! :-)
        
        Mal im Ernst. Ich hab kein Wort verstanden. Warum sollte ich denn Referenzen auf den Hash benutzen??? Das man das Array schick sortieren kann ist mir klar. Aber ich verlasse doch praktisch am Ende meine geliebte Perl-Umgebung und schmeiße nur ein File raus, das nach Javascript-Regeln formatiert ist.
        
        kristian
        
        2010-10-15 20:41
        
        User since
        2005-04-14
        684 Artikel
        BenutzerIn
        
        Richtig. Die JavaScriptologen sind ganz groß im Itterieren nach C-Style.
        Wenn die es sortiert wollen, kann das nur bedeuten, dass sie ein array erwarten.
        Also:
        
        Code: (dl )
        
        1 2 3 4 5
        
        [ { "a" : 123 }, { "b" : 345 }, { "c" : "enemenemu" } ]
    - cbxk1xg
      
      2010-10-15 20:25
      
      User since
      2003-10-20
      496 Artikel
      BenutzerIn
      
      Das Modul bietet ja angeblich auch eine sort_by Funktion http://search.cpan.org/~makamaka/JSON-2.26/lib/JSON.pm#sort_by. Aber ich verstehe das nicht so ganz. Vielleicht kann mir ja jemand mal einen Schubs geben.
- +14 replies
- topeg
  
  2010-10-15 20:27
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Das hier:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  for my $key (%CONFIG) { ... }
  
  gibt nicht nur die Schlüssel aus sondern alle Werte in diesem Hash. In diesem Kontext wird der Hash als Array behandelt.
  logisch entspricht der Code:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my @array=%CONFIG; for my $key (@array) { ... }
  
  Es werden die Werte in der Reihenfolge key1,val1,key2,val2,key3,val3,...
  Ich denke was du willst ist:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  for my $key (keys %CONFIG ) { ... }
  
  keys(...) liefert eine Liste mit allen Schlüsseln im Hash. Das kannst du dann auch sortieren:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  for my $key (sort keys %CONFIG ) { ... }
  
  EDIT: Entschuldige habe nicht genau geschaut. Ich mit nur direkt über das for my $key (%CONFIG) gestolpert.
  Last edited: 2010-10-15 20:30:09 +0200 (CEST)
  - +13 replies
  - cbxk1xg
    
    2010-10-15 20:31
    User since
    2003-10-20
    496 Artikel
    BenutzerIn
    
    Oh, das mit dem Kontextbezug wusste ich noch nicht. Danke! Aber da stecke ich ja wieder in einer Schleife. Was mach ich denn um aus der Schleife, nach dem Sortieren meine schöne neue Ordnung in das Modul zu schieben?
    
    Code (perl): (dl )
    
    1 2 3
    
    use JSON; my $json_text = to_json(\%UDIoutput); print $json_text;
    - +12 replies
    - topeg
      
      2010-10-15 20:40
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Das geht so weit ich weiß so:
      
      Code (perl): (dl )
      
      1 2
      
      use JSON::PP; my $json_text=$JSON::PP->new()->sort_by(sub { $JSON::PP::a cmp $JSON::PP::b })->encode(\%UDIoutput);
      - +11 replies
      - cbxk1xg
        
        2010-10-15 21:10
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        2010-10-15T18:40:24 topeg
        Das geht so weit ich weiß so:
        
        Code (perl): (dl )
        
        1 2
        
        use JSON::PP; my $json_text=$JSON::PP->new()->sort_by(sub { $JSON::PP::a cmp $JSON::PP::b })->encode(\%UDIoutput);
        
        Das gibt mir was böses im Browser zurück.
        
        Code: (dl )
        
        Can't call method "new" on an undefined value at /var/www/index.mbm line 328.
        
        Line 328 enthält die zweite Zeile deines Vorschlags.
        
        +10 replies
        
        topeg
        
        2010-10-15 21:12
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Entschuldige, Tippfehler. Ein "$" ist zu viel. So ist es richtig:
        
        Code (perl): (dl )
        
        1 2
        
        use JSON::PP; my $json_text=JSON::PP->new()->sort_by(sub { $JSON::PP::a cmp $JSON::PP::b })->encode(\%UDIoutput);
        
        EDIT:
        Wenn dir die Ausgabe zu kompakt ist, schreib es so:
        
        Code (perl): (dl )
        
        1 2
        
        use JSON::PP; my $json_text=JSON::PP->new()->pretty->sort_by(sub { $JSON::PP::a cmp $JSON::PP::b })->encode(\%UDIoutput);
        
        Last edited: 2010-10-15 21:17:57 +0200 (CEST)
        
        +9 replies
        
        cbxk1xg
        
        2010-10-15 21:19
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        SUPER! Vielen Dank. Das hatte ich gesucht. Sortieren, encoden und tschüß.
        
        Jetzt sieht's so aus...
        
        Code: (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 35 36 37 38 39 40 41 42 43
        
        { "BeforeAfter": "on", "FormatInvisible": "", "HomePID": "static,Index_de", "InlineFormat": "on", "IsFirst": "", "MetaKeywords": "MS Rheinenergie,Bilder,Fotos,Galerie", "PIDauthor": "admin", "TeaserShort": "So sieht es auf der noch (fast) menschenleeren MS Rheinenergie aus", "UserVar01Name": "Test 1", "UserVar02Name": "Test 2", "UserVar03Name": "Test 3", "UserVar04Name": "", "UserVar05Name": "", "UserVar06Name": "", "UserVar07Name": "", "UserVar08Name": "", "UserVar09Name": "", "UserVar10Name": "", "UserVar11Name": "", "UserVar12Name": "", "UserVar13Name": "", "UserVar14Name": "", "UserVar15Name": "", "UserVar16Name": "", "UserVar17Name": "", "UserVar18Name": "", "UserVar19Name": "", "UserVar20Name": "", "baseURL": "http://dev2/", "body": "Die ersten Gäste warten schon auf der Kaimauer, aber im ersten Geschoss der...", "datestamp": "201009232010", "defaultPID": "error/404", "filename": "static/cat/Hingeguckt/RuhevordemSturm_de", "internLINK": "http://dev2/?&udi=json&PID=", "requestHOST": "dev2", "requestURL": "http://dev2/?PID=static,cat,Hingeguckt,RuhevordemSturm_de&udi=json", "sitetitle": "Die Ruhe vor dem Sturm", "template": "Skin_BlueOnGrey_Main", "timeoffset": "0", "title": "Die Ruhe vor dem Sturm", "versionNo": "1.8.3" }
        
        Wenn ich das richtig verstanden habe, ist das nun die Pure Perl Variante des Moduls. - Finde ich eh viel besser! ;-)
        
        +6 replies
        
        topeg
        
        2010-10-15 21:26
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        2010-10-15T19:19:22 cbxk1xg
        Wenn ich das richtig verstanden habe, ist das nun die Pure Perl Variante des Moduls.
        
        Ja nur die JSON::PP unterstützt das sortieren. Die Variante ist aber auch signifikant langsamer.
        
        +5 replies
        
        cbxk1xg
        
        2010-10-15 21:30
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        Ist Javascript etwa schnell?! Das geht alles per 3G übers Mobilfunknetz zu nem iPhone oder iPad. Da bin ich schon froh, dass die überhaupt JSON verstehen.
        
        +3 replies
        
        topeg
        
        2010-10-15 21:38
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Es kommt nicht darauf an wie langsam ein Client ist. Stell dir vor 1.000 oder 100.000 Clients greifen gleichzeitig auf den Server zu. Egal wie schnell der Computer ist, greifen genügend darauf zu, dann kommt auch er nicht hinter her. Dann bekommen einige Clients ein Timeout, weil der Server zu lange zum Antworten brauchte.
        Wo bei deiner Applikation die Grenze ist weiß ich nicht. Du solltest aber zumindest im Hinterkopf behalten, wenn es mal darum geht das Script zu beschleunigen.
        
        +2 replies
        
        cbxk1xg
        
        2010-10-15 21:42
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        Danke. Das ist mir ja auch klar. Ich rechne aber nicht mit mehr als 100 gleichzeitigen Clients. Wenn überhaupt. Und der Rest des Codes ist recht perfomant. Der Server auch. Also, von daher... Nach mir die Sintflut und danach die Javascriptologen.
        
        cbxk1xg
        
        2010-10-15 21:47
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        Ich habe soeben noch mal ein paar Benchmarks gemacht. Das rauswerfen von dem JSON Kram aus meinem CMS dauert nur unwesentlich länger wie das rauswerfen von kompletten HTML-Seiten mit Javscript, CSS und co... Alles cool! Ich markiere den Thread hiermit mal als gelöst.
        
        cbxk1xg
        
        2010-10-15 21:40
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        Ich habe es nun, dank deiner Hilfe, fertig. Läuft super. Ich finde auch nicht, daß es langsamer ist. Ich kann ja mal einen Benchmark machen. Aber insbesondere als Aushilfs-API für Javascriptologen finde ich das völlig in Ordnung.
        
        +2 replies
        
        kristian
        
        2010-10-15 22:16
        
        User since
        2005-04-14
        684 Artikel
        BenutzerIn
        
        ich habe meine javascriptologischen Kenntnisse gerade mal wieder aufgefrischt.
        In JavaScript kann man das so:
        
        Code: (dl )
        
        1 2 3
        
        for (var property in HASH) { alert(property + ': ' + HASH[property]); }
        
        verarbeiten, womit es dann ja auch wieder Sinn macht den Hash bzw. das Object zu sortieren...
        
        cbxk1xg
        
        2010-10-15 22:26
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        Ach ja, ich wusste doch, daß es da was gibt, was ich nicht so genau wissen will. - Sorry, aber bei Javascript werde ich immer ein wenig aggressiv. :-)
        
        Ich bin jedesmal auf neue erstaunt, was einige Freaks damit anstellen und dann gleichermaßen immer extrem frustiert, wenn ich mal JS schreiben muss. Alleine die Tatsache, das man sich mit Browser-Plugins wie Firebug behelfen muss um simpelste Fehler zu finden, ist krank. Und auch das hilft recht selten.
        
        Aber danke für den Hinweis, jetzt verstehe ich wenigstens warum die das so wollten. - Ich hätte ja eine CSV bevorzugt. Ist am Ende sogar kleiner. Allerdings ist mir schon klar, daß JSON valides Javascript ist und von daher für die JS-ler der heilige Gral der Daten-API ist.

View all threads created 2010-10-15 20:03.