JSON auf Gültigkeit prüfen

[JudgeDredd]

Hallo Zusammen,

mit folgendem Code möchte ich gerne prüfen, ob eine Variable einen gültigen JSON Ausdruck enthält:

Code Auswählen Erweitern

$result = 'test';
$result = 'true';
$result = 'false';
$result = true;
$result = false;
$result = '{"text_value": 42,"text_string": "irgendwas","liste": ["A", "B", "C"],"objekt": {"x": 123.45,"y": -67.89,"aktiv": true} }';

print eval { $ifJSON = decode_json( $result ); 1; } ? "OK": "NOK";Lediglich bei $result = 'test' bekomme ich ein NOK. Alle Anderen liefern mir ein OK, was einen gültigen JSON Ausdruck bedeutet.
Meine Erwartung wäre eher, das nur der letzte String einen gültigen JSON enthält.
Kann mir Jemand sagen wie ich zu meinem Wunschergebnis komme oder bin ich da zu naiv und verstehe da irgendeinen Zusammenhang nicht ?
(Natürlich kommentiere ich bei meinen Tests immer die Zuweisungen entsprechned aus 😉)

Gruß,
JudgeDredd

[betateilchen]

Dein Problem kann ich nicht nachvollziehen.

Code Auswählen Erweitern

sub jt {
  use JSON qw(decode_json);

#  my $result = 'test';
#  my $result = 'true';
#  my $result = 'false';
#  my $result = true;
#  my $result = false;
#  my $result = '{"text_value": 42,"text_string": "irgendwas","liste": ["A", "B", "C"],"objekt": {"x": 123.45,"y": -67.89,"aktiv": true} }';

  my $json_out = eval { decode_json($result) };
  if ($@){
    return "decode_json failed, invalid json. error:$@\n";
  }
  return $json_out;
}


'test' liefert:
decode_json failed, invalid json. error:'true' expected, at character offset 0 (before "test") at ./FHEM/99_myUtils.pm line 40.

'true' liefert:
decode_json failed, invalid json. error:JSON text must be an object or array (but found number, string, true, false or null, use allow_nonref to allow this) at ./FHEM/99_myUtils.pm line 40.

'false' liefert:
decode_json failed, invalid json. error:JSON text must be an object or array (but found number, string, true, false or null, use allow_nonref to allow this) at ./FHEM/99_myUtils.pm line 40.

true liefert:
decode_json failed, invalid json. error:JSON text must be an object or array (but found number, string, true, false or null, use allow_nonref to allow this) at ./FHEM/99_myUtils.pm line 40.

false liefert:
decode_json failed, invalid json. error:JSON text must be an object or array (but found number, string, true, false or null, use allow_nonref to allow this) at ./FHEM/99_myUtils.pm line 40.

'{"text_value": 42,"text_string": "irgendwas","liste": ["A", "B", "C"],"objekt": {"x": 123.45,"y": -67.89,"aktiv": true} }' liefert:

HASH(0x564f9cf0c5c0)

Works as designed.

Wobei die Fälle 4+5 (true und false ohne Anführungszeichen) prinzipiell schon in der Zuweisung in einen Fehler laufen, wenn "use strict" gesetzt ist.

[JudgeDredd]

Danke schonmal für Deinen Einsatz, aber so ganz kommen wir noch nicht zum gleichen Ergebnis.

Bleiben wir mal bei Deinem Code und einem konkreten Beispiel:

Code Auswählen Erweitern

my $result = 'false';
my $json_out = eval { decode_json($result) };
if ($@){
  print "decode_json failed, invalid json. error:$@\n";
}
print $json_out;
Gibt mir eine '0' zurück und das gleiche mit $result='true' eine '1'.

Den von Dir gezeigten Fehler:
JSON text must be an object or array (but found number, string, true, false or null, use allow_nonref to allow this)

bekomme ich bei 'true' und 'false' nicht.
Irgendetwas mache ich noch falsch bzw. anders

[Otto123]

Meines Wissens ist 0 und 1 als Rückgabe so zu werten:
0 - perl würde abstürzen wenn man damit eine Zuweisung programmiert. Zumindest war das früher so, ob neue Versionen den Absturz abfangen weiß ich nicht.
1 - perl würde nicht abstürzen, aber es ist eben nur insofern "ok"


Nur wenn ein HASH zurück kommt, hat man wirklich ein array mit den json Daten gefüllt.
Du musst also irgendwie auf das array prüfen. Genau das macht betateilchen mit seinem Code, er prüft den Fehler.

[JudgeDredd]

Danke Otto für Deinen Input, aber

Genau das macht betateilchen mit seinem Code, er prüft den Fehler.

Ich mach doch die identische IF-Abfrage. Wieso kommt dann bei Betateilchen ein anderes Ergebnis ? 🤔

[Otto123]

Du testest das in FHEM? Da hat bei mir print nie so funktioniert, da nehme ich auch immer return.
Du siehst ja offenbar $json_out, betateilchen "sieht" die Ausgabe von $@

[JudgeDredd]

Du testest das in FHEM?

Nein, ich gestehe, der Test erfolgt mit einer Datei auf der Shell.
Aber gut, ich kann das Testweise auch mal in die 99_myUtils.pm nehmen. Ob das return aber das Ergenis verändert ?
Die Frage wäre ja auch noch ... wie geht es dann weiter. Ich benötige am Ende ein ja eine verlässliche Aussage, ob der in $result enthaltene Wert ein Valid JSON ist oder eben nicht.

[JudgeDredd]

UPDATE:
Nein, auch aus der 99_myUtils.pm bekomme ich eine 1

Code Auswählen Erweitern

sub validJSON {
  use JSON qw(decode_json);
  my $result='true';
  my $json_out = eval { decode_json($result) };
  if ($@){
    return "decode_json failed, invalid json. error:$@\n";
  }
  return $json_out;
}


[Beta-User]

Schau doch mal hier rein: https://forum.fhem.de/index.php?msg=1227235

Deine Zuweisung erfolgt an der falschen Stelle.

[JudgeDredd]

Hi Beta-User,
reingeschaut habe ich nun, aber wohl immer noch nicht die richtige Stelle für die Zuweisung gefunden.
Auch der Code aus dem referenzierten Post:

Code Auswählen Erweitern

my $ref; my $data = 'true';
if ( !eval { $ref = decode_json($data) ; 1 } ) {
          #sonstige Fehlerbehandlungsroutinen hierher, dann ;
          return Log3($hash->{NAME}, 1, "JSON decoding error: $@");
}liefert mir weiterhin tapfer eine 1.
Hast Du noch einen Tip für die richtige Stelle der Zuweisung ?
Was ich auch nicht verstehe und nachstellen kann, ist, warum bei betateilchens Beispiel im Falle von 'true' der decode_json Befehl ein 'failed' retuniert.

[Beta-User]

Gibst du $ref zurück, oder in welchem Zusammenhang steht jetzt der Schnipsel?

[JudgeDredd]

in welchem Zusammenhang steht jetzt der Schnipsel?

Den hatte ich aus dem von Dir verlinkten Beitrag.

Gibst du $ref zurück

Korrekt. In diesem Beispiel würde ich $ref zurückgeben.

So ganz grün bin ich mit der IF-Bedingung auch nicht.
bei $data='true' wird ja gar nicht in den Ausführungsteil verzweigt.

EDIT:
Für mich sieht es so aus, als wenn 'true' als gültiges JSON interpretiert wird.
Müsste ein gültiges JSON nicht so aussehen: {'true'}

[Beta-User]

Im Fehlerfall gibst du das Ergebnis des log-Befehls zurück...

Vielleicht wäre es klarer, wenn du entweder nur demo-Code mit Rückgabe zur Eingabe via fhem-Kommandozeile schreibst, oder nur logst...

[JudgeDredd]

Im Fehlerfall gibst du das Ergebnis des log-Befehls zurück...

Es liegt bestimmt an meinem fehlenden Verständnis, aber bei 'true' gibt es ja keinen Fehlerfall (ausser bei betateilchen).
$@ hat keinen Inhalt.

Ich glaube ich such mir einen anderen Weg, das Umzusetzen.
Aber habe dennoch Dank für Deine Bemühungen.

Gruß,
JudgeDredd

[Beta-User]

Dass "true" gültiges Json sein soll, würde mich überraschen.

Meine vorherige Antwort anders formuliert: verwende zum Verstehen des Codes explizite Return-Werte und keine impliziten.