Klammerebenen

Nachdem das Thema im Forum zum xten mal aufkam, hier ein schneller Stub zum Thema Klammern und Mischen von Perl und Fhem Kommandos.

Fhem kennt einges an Befehlen um Aktoren zu Schalten und auf Dinge zu reagieren. Es konnte aber anfänglich insbesondere keine komplexeren Operationen wie "if...else". Wollte man diese nutzen, muss man Fhem mit Perl-Einzeilern versehen.

Die Perl Ebene wird mittels geschweifter Klammern aufgerufen: { }

INNERHALB von Perlausdrücken will man aber oft doch Fhem Kommandos ausführen. Dazu muss man Perl mitteilen, dass diese Kommandos an Fhem übergeben werden sollen. Dies macht man durch den Ausdruck:

{fhem("  ")} . 

Fhem Befehle innerhalb von Perlausdrücken müssen "Escaped" werden (verdoppelt). Mehr dazu hier: Escapen_in_Perlbefehlen.

Ein kompletter Ausdruck mit Perl und Fhem gemischt hat daher diese Form:

define Name notify Ereignis {'ab hier Perl-Code' { fhem(" hier Fhem Kommandos, escapen nicht vergessen ")} }

Konkretes Beispiel: Es soll ein Garagentor geöffnet werden, aber nur wenn es vorher auch wirklich zu war. Dazu wird mittels des Perl Befehls "if" geprüft ob das Tor zu ist. Wenn ja (Value("Einfahrt") eq "Closed"), dann wird der Toraktor eingeschaltet, ausserdem einen Kontrollleuchte.

define act_on_Einfahrt_AUF notify Einfahrt_AUF { if (Value("Einfahrt") eq "Closed") { fhem("set Tor_Aktor on ;; set Kontrollampe on")} }

Sinnlos sind mitunter anzutreffende Konstruktionen wie etwa:

define act_on_Einfahrt_AUF notify Einfahrt_AUF { fhem("set Tor_Aktor on ;; set Kontrollampe on")} }

Da Perl hier nur dazu verwendet wird ohne weitere Bedingung Kommandos an Fhem weiterzureichen, ist dies nur eine besonders komplizierte Schreibweise von

define act_on_Einfahrt_AUF notify Einfahrt_AUF set Tor_Aktor on ; set Kontrollampe on

Inzwischen ist Fhem um den relativ mächtigen Befehl DOIF erweitert, der die meisten Fälle von bedingten Aktionen ohne Perl abbildbar macht. Es gibt aber dennoch Fälle, wo Perl die einzige Möglichkeit bleibt bestimmte Aktionen durchzuführen.