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:
{
"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
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)