[gelöst]Perl im Notify ?

[sky64]

Hallo

Bitte seht es mir nach, aber ich begreife nicht was ich hier falsch mache.
Ziel ist es ein Reading um einen Betrag zu erhöhen.

Das war der 1. Ansatz:

Code Auswählen Erweitern


define set_BatLoad_plus notify EML_Zaehler_E:energy_avg.* {if($EVTPART1 > 4600) \
{ fhem('set Modbus_Fronius BYD_max_charge {ReadingsNum("Modbus_Fronius","BYD_max_charge",0)+5')}}


Das funktionierte nicht.
Also habe ich es umgebaut zu:

Code Auswählen Erweitern

EML_Zaehler_E:energy_avg.* {if($EVTPART1 > 4600) {my $temp=ReadingsNum("Modbus_Fronius","BYD_max_charge",0)+5;; fhem('set Modbus_Fronius BYD_max_charge $temp')}}


Auch das funktioniert nicht und ich weiß nicht warum.
Wenn ich auf der CLI zum Test das aufrufe ist alles richtig (BYD_max_charge ist aktuell "35")

Code Auswählen Erweitern

fhem> {ReadingsNum("Modbus_Fronius","BYD_max_charge",0)+5}
40

Wenn ich aber das so aufrufen kommt Müll raus:

Code Auswählen Erweitern


fhem> {my $temp=ReadingsNum("Modbus_Fronius","BYD_max_charge",0)+5;; printf $temp}
1


Vieleicht geht das auch viel schöner über andere Wege.
Auch mit einem DOIF könnte ich mir vorstellen.
Leider findet man in Beispielen im Wiki o.ä. solche Berechnungen oder die Nutzung von weiteren Readings in der Ausführung praktisch nicht.
Es wird meist mit "on/off" oder festen Werten gearbeitet.

[Beta-User]

Dein Suchwort ist "Quotes in Perl"...

Dreh' mal die doppelten und die einfachen um .

[sky64]

Danke für den Tip, aber leider funktioniert es damit auch nicht.

Wenn ich die " und ' tauschen den Ausführungsteil auf der CLI eingeben kommt das:

Code Auswählen Erweitern

fhem> { fhem("set Modbus_Fronius BYD_max_charge {ReadingsNum('Modbus_Fronius','BYD_max_charge',0)+5}")}
value {ReadingsNum('Modbus_Fronius','BYD_max_charge',0)+5} is not within defined min/max range

Die Meldung "not within defined min/max range" kommt daher das nur Werte zwischen 10..100 erlaubt sind.
Hier wird offenbar wieder versucht nur eine "1" zu schreiben.

Auch ein

Code Auswählen Erweitern

fhem> {my $temp=ReadingsNum('Modbus_Fronius','BYD_max_charge',0)+5;; printf $temp}
1

Funtioniert ja weiterhin nicht.
Gerade das verstehen ich nicht. Ohne Hilfsvariable gehts, mit nicht.

Aber ich habe offenbar noch weiteren Denkfehler:

Code Auswählen Erweitern


fhem> {my $temp=123;; printf $temp}
1
fhem> {my $temp="123";; printf $temp}
1
fhem> {my $temp='123';; printf $temp}
1


Welchen?

[Beta-User]

was soll das printf da bei den Tests?

[sky64]

Ich will ja wissen was in der Variable steht.

[sky64]

Ok

Ich habs jetzt hinbekommen

Code Auswählen Erweitern

{my $temp=ReadingsNum("Modbus_Fronius","BYD_max_charge",0)+5;; fhem("set Modbus_Fronius BYD_max_charge $temp");;}
funktioniert. Vermutlich die fehlenden ;; und keine sonst zu wenig Ahnung um zu testen ...

[Guybrush]

wie schon geschrieben, sind deine quotes falsch. so sollte es gehen:

Code Auswählen Erweitern


define set_BatLoad_plus notify EML_Zaehler_E:energy_avg.* {if($EVTPART1 > 4600) \
{ fhem("set Modbus_Fronius BYD_max_charge ".(ReadingsNum("Modbus_Fronius","BYD_max_charge",0)+5) )}}


fhem($string), daher musst du auch deine set syntax wie einen string behandeln. grundsätzlich ist es auch ratsam lieber eine klammer zuviel zu setzen.

[Beta-User]

wie schon geschrieben, sind deine quotes falsch. so sollte es gehen:

Code Auswählen Erweitern


define set_BatLoad_plus notify EML_Zaehler_E:energy_avg.* {if($EVTPART1 > 4600) \
{ fhem("set Modbus_Fronius BYD_max_charge ".(ReadingsNum("Modbus_Fronius","BYD_max_charge",0)+5) )}}


fhem($string), daher musst du auch deine set syntax wie einen string behandeln. grundsätzlich ist es auch ratsam lieber eine klammer zuviel zu setzen.

...diese concats innerhalb eines Funktionsaufrufs sind unschön zu lesen und grausam zu debuggen...

Und Klammern: Weglassen, was geht!
Das macht es nur unübersichtlicher und es kann dazu führen, dass der Datentyp sich "unbeabsichtigt" ändert, wenn man an der falschen Stelle die falsche Klammer erwischt...
Ausnahme: "Pseudo-Built-in"-Funktionen die aus dem fhem.pl-Kontext oder myUtils (z.B. Log) kommen. Da IMMER Klammern setzen!