Perl und JSON (gelöst) (Allgemeines zu Perl)

[thread]17161[/thread]

Perl und JSON [gelöst]

Tags: perl5 JSON Ähnliche Threads

Leser: 26

Articles: hide open all | hide show old branches

+3 replies
panni

2012-02-15 16:36
User since
2012-02-15
23 Artikel
BenutzerIn
Hallo!

Ich muß mich aktuell damit beschäftigen Perl und JSON unter einen Hut zu bekommen. Was ich aktuell aber nicht schaffe :(

Installiert habe ich JSON::XS.

Was ich machen will: ich habe in einer Datenbanktabelle Einträge, die ich auslese und in ein JSON-Objekt bringen muß.

Das JSON-Objekt soll am Ende so aussehen:
Code: (dl )

1 2 3 4 5 6 7 8 9

{ "aktionsID": 444, "buecher": [ { "autor": "autorenname1", "titel": "buchtitel1", "seitenanzahl": 400}, { "autor": "autorenname2", "titel": "buchtitel2", "seitenanzahl": 500}, { "autor": "autorenname3", "titel": "buchtitel3", "seitenanzahl": 600} ], "datum": "15.2.2012" }
Alles was "buecher" betrifft, kommt aus der Datenbank. "aktionsID" und "datum" werden anderweitig bestimmt.

Ich hab nun keine Ahnung, wie ich das aufbauen muß. Ich habe mich versucht, alles was "buecher" betrifft in ein @buecherArray zu schreiben. Das geht und wenn ich das mit
Code (perl): (dl )

print encode_json \@buecherArray ;
ausgebe, sieht das auch ein wenig so aus, wie ich es haben will.
Aber nicht ganz, so fehlt mir, dass das in "buecher": [] geklammert ist.

Und wie ich die "aktionsID" und das "datum" in das JSON-Objekt reinbekomme, weiss ich auch nicht.

Gibt es evtl. irgendwo eine gutes, deutschsprachiges Tutorial dazu?
Last edited: 2012-02-15 16:38:36 +0100 (CET)
- +2 replies
- jan
  
  2012-02-15 16:41
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  Die JSON-Notation ist ja nur eine Umwandlung von einer Datenstruktur in Perl.
  Wenn Du da also zB
  
  Code: (dl )
  
  1 2 3 4 5 6 7
  
  my $result = { "aktionsID" => 444, "buecher" => [ { "autor" => "autorenname1", "titel" => "buchtitel1", "seitenanzahl" => 400}, ], "datum" => "15.2.2012" };
  
  befüllst und das dann in JSON encodest, solltest du dem wunschergebnis ziemlich nahe kommen.
  - panni
    
    2012-02-15 16:42
    
    User since
    2012-02-15
    23 Artikel
    BenutzerIn
    
    Ui, so einfach? :-)
    
    Na das schau ich mir gleich mal an.
    
    DANKE schon mal!

View all threads created 2012-02-15 16:36.