MB: JSON Daten verarbeiten mit Perl

Beitrag lesen

SELF-Forum

JSON Daten verarbeiten mit Perl

MB
– Informationen zu den Bewertungsregeln

Tag miteinander,

kann mir jemand vielleicht behilflich sein, komme echt nicht weiter. Versuche seit ein einhalb Tagen irgendwie JSON Daten zu decodieren und anzuzeigen. Danach etwas hinzufügen. Nur sollte ich erstmal hinkriegen das die Daten dekodiert werden....

Benutze dazu die Bibliothek "Perl::XS"

Hier ein kleiner JSON Ausschnitt:

{  
 "definition": "rotation_data",  
 "saved" : 1,  
 "items":  
 [  
  {  
   "definition": "Page 1",  
   "evalthat": "Hallo <b>Fett<\/b> bist du"  
  },  
  
  {  
   "definition": "Bild 2",  
   "evalthat": "Zweiter <b>Text<\/b>"  
  },  
  
  {  
   "definition": "Page2",  
   "evalthat": "wsd"  
  }  
 ]  
}

und hier der Perl Code denn ich bis jetzt habe:

use JSON::XS;  
  
$json = new JSON::XS;  
$json = $json->utf8 ([$enable]);  
$json = $json->pretty ([$enable]);  
  
my $jsondata;  
  
open(DATA, "</var/www/html/infotainment2/stockwerke/1s_show/rotation_data.json") || die $!;  
 while(<DATA>)  
 { $jsondata = $jsondata . $_; chomp($jsondata); }  
close DATA;  
  
  
$perl_scalar = decode_json $jsondata;

Er dekodiert mir auch etwas nur gibt er mir dann nen "HASH" zurück mit dem ich nachher nichts mehr anfangen kann. Kann mir jemand da behilflich sein und dabei helfen das ganze richtig zu dekodieren, Daten ausgeben, etwas hinzufügen und wieder enkodieren. Das wäre echt super.

Hier noch die Dokumentation zu JSON::XS: http://forum.de.selfhtml.org/cgi-bin/fo_post

Grüsse MB

Beitrag melden
–
Informationen zu den Bewertungsregeln