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;
}
Zitat von: Thomas24568 am 14 Dezember 2025, 23:40:17Die Werte für voc und CO2 ändern sich einfach zu langsam für einen schnellen Test.Was erscheint denn im Eventmonitor.
Zitat von: DS_Starter am 14 Dezember 2025, 19:31:20...ZitatNoch eine Frage: Kannst Du den Leistungswert, auf dessen Basis remainingSurplsHrsMinPwrBat_XX bestimmt wird, zugänglich machen?Nein, es gibt nicht den "einen" Leistungswert, es sei denn du meinst <MinPwr> aus dem Schlüssel:ctrlBatSocManagementXX->loadAbort=<SoC1>:<MinPwr>:<SoC2>
Ansonsten muß man sich durch den Code wühlen ab Zeile 16129 der contrib Version.
Aus welchem Anlass fragst du danach?
$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.
, es selbst geschafft.