Quelltext der Seite AT um eine Temperaturabhängige Nachtabsenkung zu realisieren

'''Für die Grundlegende Funktion von [[at]] bitte einen Blick in die {{Link2CmdRef|Anker=at}} werfen.'''

<ins>Zielvorgabe:</ins>

Jeden Tag um 22:30 soll die Temperatur auf 17° abgesenkt werden (hier das FHEM-Gerät "wz_Heizung") wenn die Temperatur vorher über 17° eingestellt war - war die Temperatur vorher niedriger eingestellt, soll nichts passieren.

Der Befehl für die [[Konfiguration]] lautet dazu wie folgt:

Einzeiler:

:<code>define wz_HeizungNachtabsenkung at 22:30:00 {if(ReadingsVal('wz_Heizung', 'desired-temp', 0) &gt; 17.0) {fhem(&quot;set wz_Heizung desired-temp 17.0&quot;)} }</code>

Mehrzeiler:

 <nowiki>define wz_HeizungNachtabsenkung at 22:30:00 {\
  if(ReadingsVal('wz_Heizung', 'desired-temp', 0) &gt; 17.0) {\
   fhem(&quot;set wz_Heizung desired-temp 17.0&quot;)\
  }\
 }</nowiki>
Im Detail:

* ''define wz_HeizungNachtabsenkung'' =&gt; lege ein neues Objekt ''wz_HeizungNachtabsenkung'' und ...
* ''at *22:30:00'' =&gt; ... prüfe täglich um 22:30 Uhr ...
* ''if(ReadingsVal('wz_Heizung', 'desired-temp', 0) &gt; 17.0'' =&gt; ... ob ''(ReadingsVal -&gt; lese Werte)'' ...<br>''('wz_Heizung', 'desired-temp', 0)''=&gt; ... ob am Gerät ''wz_Heizung''der Wert ''desired-temp''...<br>''&gt; 17.0''=&gt; ... größer als 17.0 ist, wenn ja dann ...
* ''fhem("set wz_Heizung desired-temp 17.0")'' =&gt; ... soll FHEM am Gerät ''wz_Heizung'' den Wert ''desired-temp'' auf 17.0° setzen.

'''Anmerkung zu ReadingsVal:'''
 <nowiki>ReadingsVal(&lt;DeviceName&gt;, &lt;ReadingsName&gt;, &lt;Defaultwert&gt;)</nowiki>
Damit wird das entsprechende Reading am entsprechenden Device ausgelesen. Gibt es das Reading nicht, wird Defaultwert zurückgegeben.

Man kann Prozedurergebnisse (wie dieses von ReadingsVal) und Variablen bei Vergleichen natürlich mischen, und muss diese Ergebnisse nicht unbedingt in Variablen zwischenspeichern. Das tut man meistens nur, wenn das Ermitteln viel Zeit in Anspruch nimmt und man diesen mehrfach benötigt, oder der Wert durch Überschreiben verloren geht.

Perl hat als Besonderheit, dass man einer Variablen nicht ansieht, ob sie eine Zahl oder einen String enthält. Das sind alles sogenannte Skalare (im Gegensatz zu Arrays oder Hashlisten). Um bei einem Vergleich aber die durchaus unterschiedlichen Ergebnisse erzwingen zu können, gibt es eben unterschiedliche Operatoren dafür:

 <nowiki>&lt;, &gt;, &lt;=, &gt;=, ==,&#160;!= sind numerische Operatoren
 lt, gt, le, ge, eq, ne sind die entsprechenden Stringvergleichsoperatoren</nowiki>
Beispiel:

 <nowiki>my $var1 = '10';
 my $var2 = '2';
 # Ergibt true:
 if ($var1 &gt; $var2)...
 # Ergibt false:
 if ($var1 gt $var2)...</nowiki>
Für weitere Beispiele bietet es sich an auch mal einen Blick in die ''fhem.pl ''zu werfen.

[[Kategorie:Code Snippets]]