[gelöst] MQTT openWB json mit Runden der Werte

[ch.eick]

Hallo zusammen,
ich bin gerade an den MQTT Messages der openWB Version >2 und da kommen einige Werte mit sinnlos vielen Nachkommastellen.
Viele, die einzeln kommen habe ich bereits gerundet.
Wie könnte ich denn die Werte innerhalb eines JSONs for dem schreiben ins reading runden?

Code Auswählen Erweitern

Das ist okay
$DEVICETOPIC/chargepoint/6/get/power:.* { return {cp_6_get_power => round($EVTPART0,0)} }

Und hier würde ich auch gerne runden
$DEVICETOPIC/chargepoint/6/get/powers:.* { json2nameValue($EVENT,'cp_6_get_P') }

Daraus entsteht dann das hier, was bei 0.0 gut ist, aber bei anderen Werten nicht so dolle, da kommt dann z.B. 3023.3599755859377

Code Auswählen Erweitern

cp_6_get_P1 0.0
cp_6_get_P2 0.0
cp_6_get_P3 0.0

VG  Christian

[rudolfkoenig]

json2nameValue leifert ein Hash (aka Objekt) zurueck.
Zum Runden iteriert man ueber alle Werte, und rundet sie, falls sie nach Zahl ausschauen.
In der Art

Code Auswählen Erweitern

{ my $h=json2nameValue($EVENT,'cp_6_get_P');; map { $h->{$_}=round($h->{$_}) if(looks_like_number($h->{$_})) } keys %{$h};; $h }
(ungetestet).

[ch.eick]

json2nameValue leifert ein Hash (aka Objekt) zurueck.
Zum Runden iteriert man ueber alle Werte, und rundet sie, falls sie nach Zahl ausschauen.
In der Art

Code Auswählen Erweitern

{ my $h=json2nameValue($EVENT,'cp_6_get_P');; map { $h->{$_}=round($h->{$_}) if(looks_like_number($h->{$_})) } keys %{$h};; $h }
(ungetestet).

Ups, das übersteigt meine Kenntnisse, aber Augen zu und durch, ich nehm mal das ungetestete
Danke erstmal

EDIT: Ich habe es gerade eingebaut und es läuft. Beim round() habe ich noch mit ,0 alle Nachkommastellen eliminiert.