gelöst -- $EVENT oder $EVTPART0 manipulieren

[Inputsammler]

Hallo zusammen,

Ich habe meine Heizung mit FHEM2FHEM an meinen Haupt Fhem Server verbundnen.

Im Fhem Event Logs kommen die Logs auch super und genau so an wie im Heizungs Fhem Instanz

EventLog am FHEM2FHEM Server

Code Auswählen Erweitern

2016-08-22 22:33:46 VCONTROL Heizung Temp_Aussen: 18.3
und die Reading reading sieht so aus
Temp_Aussen 18.3


Event am FHEM2FHEM Client

Code Auswählen Erweitern

2016-08-22 22:33:46 dummy Heizung Temp_Aussen: 18.3
diese Daten werden in das log geschrieben
Damit ich auf meinen Client eine readings in ein Dummy (Heizung) bekomme habe ich notify erstell

Code Auswählen Erweitern

Internals:
   DEF        Heizung:.* setreading Heizung $EVENT
   NAME       nf_Heizung
   NOTIFYDEV  Heizung
   NR         1688
   NTFY_ORDER 50-nf_Heizung
   REGEXP     Heizung:.*
   STATE      2016-08-22 22:39:25
   TYPE       notify
   Readings:
     2016-08-22 22:11:42   state           active
Attributes:
   disable    0
   group      nf_Heizung
   room       6.10_Notify

leider sehen dann die Reading so aus mit einen Doppelpunkt

Temp_Aussen: 18.3
und ich bekomme im Event log ein 2 hinzu was ja logisch ist

Code Auswählen Erweitern

2016-08-22 22:33:46 dummy Heizung Temp_Aussen:: 18.3

$EVTPART0 hat den wert Temp_Aussen:
dadurch funktioniert das TabletUI nicht richtig.

Jetzt meine Frage kann ich evtl $EVTPART0 mit Perl manipulieren mit das immer der Doppelpunkt entfernt wird.
Oder gibts da eine andere Funktion die mir bis jetzt noch nicht aufgefallen ist.


Danke Gruß Gerd

[DeeSPe]

Code Auswählen Erweitern

my $read = (split(":",$EVTPART0))[0];

Gruß
Dan

[Inputsammler]

Hey Dan,

Danke für deine Hilfe .... funktioniert ganz gut.
Es könnte alles so einfach sein ...
Perl bring mit ab und zu zur Verzweiflung .

Code Auswählen Erweitern


Internals:
   DEF        Heizung:.* {my $read = (split(":",$EVTPART0))[0];{{ fhem("setreading Heizung $read $EVTPART1");};}}
   NAME       nf_Heizung
   NOTIFYDEV  Heizung
   NR         1688
   NTFY_ORDER 50-nf_Heizung
   REGEXP     Heizung:.*
   STATE      2016-08-23 00:52:09
   TYPE       notify
   Readings:
     2016-08-23 00:45:07   state           active
Attributes:
   disable    0
   group      nf_Heizung
   room       6.10_Notify

Danke normal für deine SCHNELLE Hilfe

Gruß Gerd

Jetzt sollte TabletUI auch funktionieren

[DeeSPe]

Warum so verschachtelt und so viel {}?

Code Auswählen Erweitern

Heizung:.* {fhem "setreading Heizung ".(split(":",$EVTPART0))[0]." $EVTPART1"}

Gruß
Dan

[Inputsammler]

Hey Dan,

weil ich es noch nicht ganz so gut kann. Verstehe Perl noch nicht so ganz. (alter C und Assembler macher  )

Wuste nicht das man das auch so Inline machen darf, und es bei mir nicht funktioniert hat.
Komme immer mit den Punkte und den Anführungszeichen durcheinander.

Danke Dir funktioniert

Gruß Gerd