neue Features: ereignisgesteuertes Perl - DOIF-Perl

[spi3845]

Hallo,

kann man inzwischen eine Perl-Variable innerhalb von [] verwenden?

Also etwas der Art:

Code Auswählen Erweitern

defmod di_text DOIF {
my $geraet="sensor123";;

if ([$geraet:gesperrt,1] eq 0) {
Log 1, "es geht";;
}

}


Danke schon mal!

Noch ein Nachtrag:

wie halte ich es dann mit z. B.

Code Auswählen Erweitern

set_Exec("timer", 30, 'fhem("setreading $geraet gesperrt 0")');;

Muss ich hier dann $_geraet statt $geraet deklarieren und nutzen?

[Damian]

Hallo,

kann man inzwischen eine Perl-Variable innerhalb von [] verwenden?

Also etwas der Art:

Code Auswählen Erweitern

defmod di_text DOIF {
my $geraet="sensor123";;

if ([$geraet:gesperrt,1] eq 0) {
Log 1, "es geht";;
}

}


Danke schon mal!

Noch ein Nachtrag:

wie halte ich es dann mit z. B.

Code Auswählen Erweitern

set_Exec("timer", 30, 'fhem("setreading $geraet gesperrt 0")');;

Muss ich hier dann $_geraet statt $geraet deklarieren und nutzen?

Man kann keine Variablen als Triggerinformation nutzen.

statt

Code Auswählen Erweitern

'fhem("setreading $geraet gesperrt 0")'

definierten:

Code Auswählen Erweitern

"fhem('setreading $geraet gesperrt 0')"

damit $geraet vor der Ausführung ausgewertet wird und nicht erst danach - das ist eine Perleigenschaft.

[spi3845]

Man kann keine Variablen als Triggerinformation nutzen.

Ja, das hatte ich irgendwo schon gesehen und es hat auch nicht geklappt. Hatte gehofft, es gibt inzwischen einen Workaround. Danke aber für die Info!

statt

Code Auswählen Erweitern

'fhem("setreading $geraet gesperrt 0")'

definierten:

Code Auswählen Erweitern

"fhem('setreading $geraet gesperrt 0')"

damit $geraet vor der Ausführung ausgewertet wird und nicht erst danach - das ist eine Perleigenschaft.

Danke! Der Teufel steckt im Detail. Es könnte so einfach sein, wenn es nur eine Art von Klammern und Anführunsgzeichen gäbe 

[jkriegl]

Nutze den di_counter, möchte aber gerne den Timer auf vor Mitternacht ändern.
Dazu muss in midnight_.* if ($mday==1) geändert werden.
Den Ultimo+1, also ist der nächste Tag der erste?, bekomme ich mit

Code Auswählen Erweitern

defmod next_day DOIF ([20:10:30] ) (setReading test_ultimo day {(strftime('%e', localtime+86400))})
Mir gelingt es nicht die obige if-Abfrage durch das Ermitteln des ultimo+1 ($mday) im TPL zu ersetzen.

Code Auswählen Erweitern

   if ((strftime("%e", localtime+86400)==1)) {
     set_Reading ("$3_last_month", get_Reading("$3_month",0),1);
     set_Reading ("$3_month",0,1);
   }

[Damian]

Du könntest den Aufruf so anpassen:

mid {[23:59];;                          ## Sicherung der Daten um Mitternacht\
  for (my $i=0;;$i<@{$_counter};;$i++) { ## Für jeden Zähler wird die Funktion midnight aufgerufen\
    midnight($_counter[$i][0],$_counter[$i][1],strftime("%e", localtime+120,strftime("%Y", localtime+120);;\
  }\
}\

[jkriegl]

Vielen Dank.
Das obige next_day DOIF funktioniert sowieso nicht.
Ermittle über ein at, ob es sich um den Ultimo handelt und schreibe das Ergebnis in ein Reading, das ich im TPL_counter abfrage.
Übrigens gibt es ein at_ultimo at.

[twinFHEM]

Hallo zusammen,

ich habe folgenden Perl-Code in einem DOIF:

Code Auswählen Erweitern


defmod DI_countdowndVerbrauchTempGes DOIF {if (([savergy_actions:timerdVerbrauchTempGes] > 0) and ([+00:00:05] and [?savergy_actions:timerdVerbrauchTempGes:sec] < 5)) {\
my $c=ReadingsVal("savergy_actions","counterMeldungen",0) + 1;fhem("setreading savergy_actions counterMeldungen $c");\
my $min=ReadingsVal("savergy_actions","timerdVerbrauchTempGes",0) * 60;\
my $diffNow=ReadingsVal("savergy_actions","dVerbrauchTempDiff",0);\
\
set_Exec("TimerLog".$c,$min,'fhem{Log 1, "Timer".$c." zuende!"}');\
set_Exec("Timer".$c,$min,'fhem("setreading savergy_actions dVerbrauchTempDiff ".ReadingsVal("savergy_actions","dVerbrauchTempGes",0) - $diffNow."")');\
}}\


Mit my werden 3 lokale Variablen deklariert. Nach Ablauf des internen Timer, gestartet mit set_Exec, bekomme ich folgende Fehlermeldungen:

Code Auswählen Erweitern


1:DI_countdowndVerbrauchTempGes error in fhem{Log 1, "Timer".$c." zuende!"}: Global symbol "$c" requires explicit package name (did you forget to declare "my $c"?) at (eval 18257) line 1.

1:DI_countdowndVerbrauchTempGes error in fhem("setreading savergy_actions dVerbrauchTempDiff ".ReadingsVal("savergy_actions","dVerbrauchTempGes",0) - $diffNow.""): Global symbol "$diffNow" requires explicit package name (did you forget to declare "my $diffNow"?) at (eval 18258) line 1.


Allerdings habe ich sie doch deklariert!? Und für $min taucht keine Fehlermeldung auf.
Kann mir das einer erklären?

Ich hatte noch die Vermutung, dass es an den Anführungszeichen liegt und habe es probiert mit

Code Auswählen Erweitern


set_Exec("TimerLog".$c,$min,"fhem{Log 1, 'Timer'.$c.' zuende!'}");


Hier bekomme ich dann folgende Meldung:

Code Auswählen Erweitern


1:PERL WARNING: String found where operator expected at (eval 19115) line 1, near "27.' zuende!'"
1:PERL WARNING: (Missing operator before ' zuende!'?)
1:DI_countdowndVerbrauchTempGes error in fhem{Log 1, 'Timer'.27.' zuende!'}: syntax error at (eval 19115) line 1, near "27.' zuende!'"


Ich taste mich gerade an den Umgang mit Perl-Code in FHEM heran.
Ab wann macht es eurer Meinung nach Sinn, den Code in eine bzw. die 99_myUtils auszulagern?

[Damian]

Das ist ganz einfach, wenn man die Eigenschaften und Tücken von Perl kennt.

Mit

Code Auswählen Erweitern

'fhem{Log 1, "Timer".$c." zuende!"}'

übergibst du den Code mit $c an set_Exec. In set_Exec ist aber $c nicht bekannt.

mit

Code Auswählen Erweitern

"fhem{Log 1, 'Timer $c zuende!'}"

wird dagegen $c aufgelöst bevor es an set_Exec übergeben wird, daher wird das funktionieren

[twinFHEM]

Danke Damian, passt natürlich!

Eigenwilliges Feature von PERL...
Aber ich glaube, wir werden Freunde...

Übrigens; ein sehr geiles Modul!!!