neue Features: ereignisgesteuertes Perl - DOIF-Perl

[spi3845]

Hallo,

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

Also etwas der Art:

Code: [Auswählen]

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]

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]

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]

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]

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

Code: [Auswählen]

"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]

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

Code: [Auswählen]

"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]

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]

   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.