AT mit Aufruf einer Sub

[Chris8888]

Hallo,

ich versuche in einem AT-Kommando eine Sub-Routine aufzurufen.

AT-DEF: *10:00:00 { if($wday == 0) && ($kw_ung == 1) {HeizungAuto}}

Sub aus der myUtils:
sub HeizungAuto() {
fhem("set HM_Thermostat_Badkl datapoint 1.SET_POINT_MODE 0");
fhem("set HM_Thermostat_xy datapoint 1.SET_POINT_MODE 0");
fhem("set HM_Thermostat_yx datapoint 1.SET_POINT_MODE 0");
}

Aus dem Log bei Aufruf des ATs: Unknown command {, try help.

Wäre super, wenn mir jemand auf die Sprünge helfen könnte.

Besten Dank vorab!

VG
Christian

[KernSani]

Auf die Scnelle: du bist schon im perl... also keine geschweiften Klammern um den sub Aufruf. Und die runden Klammern fehlen beim Aufruf.

[KölnSolar]

Probier mal

Code Auswählen Erweitern

*10:00:00 { if(($wday == 0) && ($kw_ung == 1)) {HeizungAuto()}}
Die geschweiften Klammern um den Funktionsaufruf kannst Du wahrscheinlich weglassen.

[Thorsten Pferdekaemper]

Auf die Scnelle: du bist schon im perl... also keine geschweiften Klammern um den sub Aufruf.

Doch, die braucht Perl nach dem if.
Gruß,
   Thorsten

[KölnSolar]

aber nur, wenn mehr als eine Anweisung folgt, oder ?

[KernSani]

Doch, die braucht Perl nach dem if.
Gruß,
   Thorsten

Shame on me! Ich sollte nicht so oft DOIF verwenden :-S (und nicht "auf die Schnelle" antworten). Gelobe Besserung. Schönen Start in die Woche!
Oli

[Thorsten Pferdekaemper]

aber nur, wenn mehr als eine Anweisung folgt, oder ?

Probier's aus. Vielleicht gibt's ja verschiedene Perls. Bei meinem kann man die einzelne Anweisung dann vor das if stellen, aber wenn die Anweisung danach kommt, braucht man die {}. Das ist in C-ähnlichen Sprachen anders.
Gruß,
   Thorsten

[Chris8888]

Hallo zusammen,

leider keine Änderung.
Versucht habe ich:
*10:00:00 { if ($wday == 0) && ($kw_ung == 1) HeizungAuto()}
*10:00:00 { if ($wday == 0) && ($kw_ung == 1) {HeizungAuto()}}
*10:00:00 if ($wday == 0) && ($kw_ung == 1) HeizungAuto()

Die Fehlermeldung ändert sich leider nicht.

Habt ihr noch eine Idee?

Viele Grüße
Christian

[mahowi]

In Perl müsste nach der Anweisung ein Semikolon gesetzt werden, also:

Code Auswählen Erweitern

*10:00:00 { if ($wday == 0) && ($kw_ung == 1) { HeizungAuto(); } }

[Thorsten Pferdekaemper]

*10:00:00 { if ($wday == 0) && ($kw_ung == 1) HeizungAuto()}
*10:00:00 { if ($wday == 0) && ($kw_ung == 1) {HeizungAuto()}}
*10:00:00 if ($wday == 0) && ($kw_ung == 1) HeizungAuto()

Na, so richtig genau schaust Du nicht hin, oder?

Code Auswählen Erweitern


*10:00:00 { if(($wday == 0) && ($kw_ung == 1)) {HeizungAuto()}}

Alles, was in der Bedingung steht, muss in einer Klammer eingeschlossen sein. Die äußeren () sind wichtig, die inneren nicht. Es müsste also auch das gehen:

Code Auswählen Erweitern


*10:00:00 { if($wday == 0 && $kw_ung == 1) {HeizungAuto()}}

Gruß,
   Thorsten

[DeeSPe]

Code Auswählen Erweitern


*10:00:00 { if($wday == 0 && $kw_ung == 1) {HeizungAuto()}}


Wie Thorsten bereits geschrieben hat sollte genau das funktionieren.
Und wie er auch schon bemerkte kann man die {} weglassen wenn man es umdreht:

Code Auswählen Erweitern


*10:00:00 { HeizungAuto() if($wday == 0 && $kw_ung == 1)}


Wenn einer Funktion nichts übergeben werden soll, sollte es auch ohne die () gehen:

Code Auswählen Erweitern


*10:00:00 { HeizungAuto if($wday == 0 && $kw_ung == 1)}


Gruß
Dan

[Chris8888]

Hllo zusammen,

vielen Dank für eure Unterstützung! Klasse!

Zumindest ändert sich jetzt die Fehlermeldung:
Mit { if($wday == 0 && $kw_ung == 1) {HeizungAuto()}}
->
ERROR evaluating my $DEV='HeizungaufAuto';{ if($wday == 0 && $kw_ung == 1) {HeizungAuto()}}: Global symbol "$kw_ung" requires explicit package name at (eval 171891) line 1.

Habt ihr dazu eine Idee? Ansonsten versuche ich das heute Abend besser zu verstehen....

VG und einen guten Start in die Woche
Christian

[igami]

was ist denn $kw_ung?

[Chris8888]

Hi,

das ist eine Variable aus einer anderen Sub-Routine:

Code Auswählen Erweitern

sub gerade_ungerade_kw() {
my ($sec,$min,$hour,$dayn,$month,$year,$wday,$yday,$isdst) = localtime(time);
my $donthisweek = $yday+5-$wday;
my $donfirst    = ($donthisweek % 7) + 1;
my $kw          = floor(($donthisweek - $donfirst)/7);
   $kw += ($wday == 0) ? 0:1;
my $kw_ung      = $kw % 2; # KW ist gerade: 0 ; KW ist ungerade: 1
Log 1, " KW:$kw | KW ung.:$kw_ung | WDay:$wday" ; # Testausgabe
}

Damit errechne ich immer ob eine Woche gerade oder ungerade ist.

Der Aufruf erfolgt immer um 00:01 per AT-Kommando.

VG
Christian

[igami]

und woher soll das at wissen, dass es das in einer anderen sub gibt?
füg der sub noch ein return hinzu welches du auswerten kannst. z.B. 1 für ungerade 0 für gerade