JSON DAten von curl in Dummy device readings soeichern

[roli]

HAlle ich mache Curl aufruf  in meinem Perl code und bekomme hierbei  JSON Daten.

Diese hätte ich germe in einem Dummy device  ( readings )  gespeichert/bzw. aktualisiert.

Nun gibt es wohl Json2nameValue , Json2reading    aber leider sind für mich kein Einträge so,
dass ich genau verstehen würde, was hier zu tun ist.

Code Auswählen Erweitern

     my   $url_data = shift ;
   
   $content    = `$url_cmd --data $url_data`
   # decode  return DAten
   
   my $decoded = eval { decode_json($content) };
   if($@) {
Log 1, "  #### WG  WiFi call  $url_data . JSOn error $@ in $content ";
        return "json error!";
       }
   else
   {

           }
  Wie bekomme ich jetzt die DAten

[betateilchen]

HAlle ich mache Curl aufruf  in meinem Perl code und bekomme hierbei  JSON Daten.

Diese hätte ich germe in einem Dummy device  ( readings )  gespeichert/bzw. aktualisiert.

Warum benutzt Du nicht einfach das Modul JsonMod? Das ist doch genau dafür gemacht.

https://commandref.fhem.de/#JsonMod

Wie bekomme ich jetzt die DAten

Ohne die Daten zu kennen, läßt sich das nicht beantworten.

[roli]

ja genau. das neue Modul ist dafür gemacht aber verlangt eine neuere Perl Version -- und ich möchte jetzt nicht in ein update galama laufen.

Ich hab es aber geschafft - nachdem ich durch viel Schrott im Web gehen musste !

Code Auswählen Erweitern

sub rw_WG_WiFi_Call($)
{ 
       my   $url_data = shift ;
   
   
   $content    = `$url_cmd --data $url_data` ;
   # decode  return DAten 
   
   my $decoded ;
   my $rc  = eval { $decoded = decode_json($content); 1; };
   
   if ( !$rc ) {
          my $err= $@;
          Log 1, "  #### WG  WiFi call  $url_data . JSOn error $err  ";
          return "json error!";
       }
   else
   {
    # loop over list and update dummy device readings   

            foreach my $key(keys %$decoded) {
               my $val = $decoded->{$key};
   #Log 1, "  #### WG   key : $key    VAl: $val  ";
   fhem ("setreading WG_HTTP_Return $key $val");
              }
           
  return $boolTrue; 
   }
   
   
}