EVTPART im notify mit Liste übersetzen

[Otto123]

Hi,

ich habe immer mal das Problem auf zwei Events genau mit zwei Aktionen zu reagieren. Beispiel:
start -> on
end -> off
Oder konkret: Es gibt die Events event: enter und event: leave
leave -> 4Move
enter -> 3Significant
Ist diese "Übersetzung" mit einer Liste bzw. einem Hash mit Key=>Value guter Perl Code? Oder ist das Mist und es gibt was Besseres? Oder hab ich es falsch verstanden?

Code: [Auswählen]

defmod n_OwnMode notify MQTT2_owntracks_user_dev:event:.enter|MQTT2_owntracks_user_dev:event:.leave {my %h =('leave','4Move','enter','3Significant');;fhem("set $NAME mode $h{$EVTPART1}")}

Grüße Otto

[amenomade]

Eher hash. Aber für zwei Werte kann man auch if nutzen

[Beta-User]

Tendenziell scheint mir das eher in einem userReadings-Eintrag besser aufgehoben zu sein, und bei nur zwei Optionen müßte das auch mit einem ternären Operator kürzer/verständlicher zu scheiben gehen.
Falls dasselbe Reading geändert werden soll (=> userReadings klappt nicht), gibt es noch readingsChange, wie ich jüngst gelernt habe (ohne es allerdings erfolgreich angewendet zu haben).

[Otto123]

Moin,

wegen der Optik nochmal der Ausgangspunkt

Code: [Auswählen]

{my %h =('leave','4Move','enter','3Significant');;fhem("set $NAME mode $h{$EVTPART1}")}In der Tat wäre set magic am kürzesten und im Fall "2 Werte" auch übersichtlich - wenn man auf die extra Prüfung der Alternative verzichtet.
Bei set magic rollen alle (außer rudi ) immer mit den Augen

Code: [Auswählen]

set $NAME mode {($EVTPART1 eq 'leave'?'4Move':'3Significant')}Wenn man die Alternative noch eindeutig prüft wird es schon etwas holprig und nicht kürzer, wenn jetzt noch was dazu kommt.

Code: [Auswählen]

set $NAME mode {($EVTPART1 eq 'leave'?'4Move':($EVTPART1 eq 'enter'?'3Significant':''))}Der if else Wurm ... muss man den Befehl zweimal schreiben

Code: [Auswählen]

{if ($EVTPART1 eq 'leave'){set $NAME mode '4Move'} else {set $NAME mode '3Significant'}}Ist mit Prüfung der Alternative schon länger

Code: [Auswählen]

{if ($EVTPART1 eq 'leave'){set $NAME mode '4Move'} elsif ($EVTPART1 eq 'enter') {set $NAME mode '3Significant'}}Mit zusätzlicher Variable hätte man den Kram am Anfang des Codes geprüft, braucht den Befehl bloß einmal und der Code muss langsam in die 99_myUtils

Code: [Auswählen]

{my $c;;if ($EVTPART1 eq 'leave'){$c='4Move'} elsif ($EVTPART1 eq 'enter'){$c='3Significant'};;set $NAME mode $c}Da gibt es sicher noch viele Möglichkeiten. Ich finde jetzt erstmal meinen Ansatz gar nicht schlecht. Man muss ja auch was haben was man quasi aus der Schublade zieht und was gut wartbar ist

Gruß Otto

[amenomade]

Moin,

wegen der Optik nochmal der Ausgangspunkt

Code: [Auswählen]

{my %h =('leave','4Move','enter','3Significant');;fhem("set $NAME mode $h{$EVTPART1}")}

Ich finde hash lesbarer, insb wenn man eine längere Liste hat. Mit hash sind die Eingabe-/Ausgangswerte klärer und deutlich zu erkennen

[rudolfkoenig]

Besonders wenn man statt 'leave','4Move' die leave=>'4Move' Notation verwendet.

[Otto123]

ich finde den Hash auch viel besser lesbar!
Was da "intern" entsteht ist aber von der Notation unabhängig? Also 'leave','4Move' und leave=>'4Move' ist am Ende das Gleiche?

[amenomade]

ich finde den Hash auch viel besser lesbar!
Was da "intern" entsteht ist aber von der Notation unabhängig? Also 'leave','4Move' und leave=>'4Move' ist am Ende das Gleiche?

Ok Rudi, hast mich erwischt
Genau das meinte ich !