doif trigger funktioniert nicht

[rhoffm34]

Hallo zusammen. Zwei Stunden probiert aber es will nicht funktionieren. Zu wenig Perl Erfahrung....

Ich habe folgendes doif geschrieben:

Code Auswählen Erweitern


(
my $Brightness=Value("P_setValue_Brightness_Terasse");
{
if (ReadingsVal("HM_BM_Terasse","brightness",0) > $Brightness)
{fhem("set Status_Brightness_Terasse_TAGvsNACHT 1");}
if (ReadingsVal("HM_BM_Terasse","brightness",0) < $Brightness)
{fhem("set Status_Brightness_Terasse_TAGvsNACHT 0");}
})

Ich möchte in Abh. der Helligkeit am HM Bewegungsmelder
"(ReadingsVal("HM_BM_Terasse","brightness",0)"
verglichen mit einem Parameter
"my $Brightness=Value("P_setValue_Brightness_Terasse")"
einen Status
"("set Status_Brightness_Terasse_TAGvsNACHT 0")"
zwischen 1 uns 0 einstellen.

Das Problem:

Wenn zB. die Bedingung
if (ReadingsVal("HM_BM_Terasse","brightness",0) > $Brightness)
erfüllt ist wird das doif nicht ausgeführt.

Drücke ich hingegen

"set checkall" wird das doif richtig ausgeführt.

Kann jemand helfen? Anscheinen funktioniert so der trigger nicht...

[Otto123]

Und einfach normales DOIF? Ohne Perl Erfahrung 

Code Auswählen Erweitern

define di_nudel DOIF
([HM_BM_Terasse:brightness] > [P_setValue_Brightness_Terasse])(set Status_Brightness_Terasse_TAGvsNACHT 1)
DOELSEIF
([HM_BM_Terasse:brightness] < [P_setValue_Brightness_Terasse])(set Status_Brightness_Terasse_TAGvsNACHT 0)

Du solltes noch überlegen was bei [HM_BM_Terasse:brightness] = [P_setValue_Brightness_Terasse] passieren soll.
Das hier ist die Umsetzung deiner Vorstellung/Idee. Das geht mit anderen Mittel noch viel einfacher. Ich würde ein userReadings machen. Das wäre auch mit Perl

Code Auswählen Erweitern

attr HM_BM_Terasse userReadings Tag {ReadingsVal($name,"brightness",0) > Value("P_setValue_Brightness_Terasse") ? "1" : "0"}
Gruß Otto

[rhoffm34]

So geht es auch, ich wollte mich aber auch mal weiter an perl versuchen. Was ist denn an meinem Code falsch, das es nicht funktioniert?

[Otto123]

Dann mach kein DOIF

Ich weiß nicht was an Deinem Code falsch ist, weil ich das, was Du geschrieben hast und was mit Perl bei DOIF geht - einfach nicht verstehe. 
Vielleicht ist es auch zu spät für verstehendes lesen 

Wenn Du da Hilfe willst, poste ein list von deinem DOIF und nicht bloß Code Teile. Aus einem list kann und will vielleicht jemand was erkennen.

Wie gesagt, wenn Du eigentlich Perl machen wolltest nimm mein Vorschlag fürs userReadings 

Gruß Otto

P.S. DOIF wurde ursprünglich auch mit dem Ansatz gemacht einfache Funktionen für jedermann umsetzbar zu machen. Und das geht 
Da jetzt einen einfachen Sachverhalt ausgerechnet mit DOIF kompliziert mit Perl umsetzen zu wollen ...  

[rhoffm34]

Danke Otto, ich versuche morgen mal userReadings...

[Ellert]

Danke Otto, ich versuche morgen mal userReadings...

Wenn Du DOIF_Readings oder event_Readings nimmst , kannst Du die DOIF-Syntax [...] verwenden.

[Otto123]

Wenn Du DOIF_Readings oder event_Readings nimmst , kannst Du die DOIF-Syntax [...] verwenden.

Moin,
er wollte ja gerne Perl machen 
Gruß Otto

[Ellert]

Moin,
er wollte ja gerne Perl machen 
Gruß Otto

Bei den DOIF_Readings werden keine zusätzlichen Events durchs System gejagt und nur intern getriggert, auch Perl kann verwendet werden, (internes)event-on-change-reading ist inklusive und es würde auch bei der Parameteränderung ausgelöst Mit Perl zu experimentieren ist aber auch nicht verkehrt.

[rhoffm34]

Mit userReadings hats geklappt, danke Otto, schöne Ostertage.