JSON - Verarbeitung (solved) (Allgemeines zu Perl)

[thread]20738[/thread]

JSON - Verarbeitung [solved]

Readers: 15

Articles: hide open all | hide show old branches

+7 replies
chmod777

2020-02-04 14:00
User since
2009-09-14
82 articles
BenutzerIn
Hi!

Ich bekomme von einer URL einen Zeichen-Salat ;-) der ungefähr so aussieht:
Code: (dl )

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

{ "Body" : { "Data" : { "DAY_ENERGY" : { "Unit" : "Wh", "Values" : { "1" : 4241 } }, "PAC" : { "Unit" : "W", "Values" : { "1" : 900 } } }, }
Nach meiner Recherche sollte das mit dem JSON-Modul zu verarbeiten sein. Daran
scheitere ich aber.

Mein Wunsch: den Wert 990 aus Zeile 13 in eine Variable zu schreiben.
- +2 replies
- Linuxer
  
  2020-02-04 14:18
  
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  
  Was hast Du versucht?
  Was ist das Resultat?
  Gibt es Fehlermeldungen? Welche?
  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!
  - chmod777
    
    2020-02-04 14:33
    
    User since
    2009-09-14
    82 articles
    BenutzerIn
    
    ich versuche seit stunden nach allen gefundenen tutorials und beispielen zum Ergebnis zu kommen ...
    Last edited: 2020-02-04 14:42:47 +0100 (CET)
- haj
  
  2020-02-04 15:12
  User since
  2015-01-07
  570 articles
  BenutzerIn
  2020-02-04T13:00:14 chmod777
  Mein Wunsch: den Wert 990 aus Zeile 13 in eine Variable zu schreiben.
  Na das ist einfach:
  
  Code (perl): (dl )
  
  $var = 990;
  
  In Zeile 13 steht aber gar keine 990.
  
  Aber mal ernsthaft: Du hast die Fragen von Linuxer nicht beantwortet und auch nicht gesagt, welche Tutorials du verwendet hast. Das von PerlMaven kommt zum Beispiel Deinem Problem schon recht nahe.
  
  Wenn Du Probleme mit geschachtelten Perl-Strukturen hast, dann ist perlreftut ein guter Einstieg. Das dauert tatsächlich etwas, bis man den Artikel verdaut hat, aber damit solltest Du zu einem Ergebnis kommen. Wenn nicht - dann wäre die Frage, was Du versucht hast, schon interessant. Oder erwartest Du, dass Dir jemand hier fertigen Code liefert? Dann schreib's dazu, vielleicht hat ja einer die Zeit.
- +3 replies
- Raubtier
  
  2020-02-04 15:20
  User since
  2012-05-04
  1081 articles
  BenutzerIn
  1. Dein JSON ist ungültig. Viele Parser können ungültiges JSON nicht parsen. Es ist mindestens ein Komma zu viel da und eine } zu wenig.
  
  2. Wo ist das Problem?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  use JSON::XS qw(decode_json); $text = getMyDownloadedJson(); my $content = decode_json($text); say $content->{'Body'}{'Data'}{'PAC'}{'Values'}{'1'};
  - +2 replies
  - chmod777
    
    2020-02-04 15:40
    User since
    2009-09-14
    82 articles
    BenutzerIn
    
    Hi!
    
    Ich hab das JSON gekürzt - aus Darstellungs-Gründen, da sind dann ein paar geschwungene Klammern geopfert worden ;-). Ändert aber nichts am grundsätzlichen Thema.
    
    In der Zwischenzeit bin ich auch zu einer Lösung gekommen:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8
    
    sub pv_leistung { my $ua = LWP::UserAgent->new; my $response = $ua->get("http://192.168.1.4/solar_api/v1/GetInverterRealtimeData.cgi?Scope=System"); my $content = parse_json ($response->decoded_content); return $content->{'Body'}->{'Data'}->{'PAC'}->{'Values'}->{'1'}; }
    
    bg
    - rosti
      
      2020-02-04 15:47
      
      User since
      2011-03-19
      3566 articles
      BenutzerIn
      
      Code (perl): (dl )
      
      return $content->{'Body'}->{'Data'}->{'PAC'}->{'Values'}->{'1'};
      
      1. Anmerkung, der erste Pfeil genügt:
      
      Code (perl): (dl )
      
      return $content->{'Body'}{'Data'}{'PAC'}{'Values'}{'1'};
      
      2. Anmerkung, das Quoten kann entfallen:
      
      Code (perl): (dl )
      
      return $content->{Body}{Data}{PAC}{Values}{1};
      
      Und schon liest sich das viel besser. HA: Finde heraus, wann man das Quoten nicht weglassen kann.
      
      MFG
      http://blog.rolfrost.de/
      
      The art of steam.

View all threads created 2020-02-04 14:00.