Sonoff - subscribeReading und RegEx

[litronics]

Hallo Zusammen!

ich spiele gerade mit einem Sonoff Schalter an den ich einen Analogen Feutesensor angeschlossen hab. Die Tasmota FW habe ich mir so angepasst, dass der analoge Anschluss ausgewertet und in MQTT als Sensor ausgegeben wird.

Jetzt wollte ich mit subscribeReading den Sensorwert erhalten und hab da anscheinend ein Verständnisproblem mit der Commandref zum MQTT_DEVICE.

Laut Commandref kann ich ja eine Perl-expression ausführen in der ich die Message als Variable zur Verfügung habe. Daher meine Idee ich filter mir hier mit einer RegEx exakt den Wert raus, den ich haben möchte und gut ist. Jetzt hab ich schon einiges versucht - aber das will irgendwie nicht klappen.

Hier mal eine Variante, von der ich dachte, die muss funktionieren:

Code Auswählen Erweitern

{my ($value) = $message=~Analog0":(\d+); return $value;} tele/sonoff-3188/SENSOR

Falls das so nicht klappt, wäre ich über jede Idee dankbar welche mein Vorhaben einem Einzeiler erledigt
Hier was ich vor habe:

Als Message bekomme ich folgenden String:    
{"Time":"2018-01-06T18:42:05", "Analog0":265}

Davon möchte ich im Reading lediglich den Wert des Analog0 Sensors haben.

Wäre super, wenn jemand eine Idee dazu hätte!

[litronics]

Nachdem ich die Commandref nochmal genau gelesen habe, vermute ich, dass man die Perl-Expression nur zum Validieren der Message verwenden kann und sie an dieser Stelle nicht über schreibbar ist.

Jetzt habe ich das (aus meiner Sicht etwas unschön) über das subscribeReading und ein userReading gelöst.

Das userReading sieht dann folgendermaßen aus:

Code Auswählen Erweitern


Feuchte {
  my $message =ReadingsVal("Sonoff_Schalter2", "Feuchte_RAW", "0");
  my $value = $message=~/Analog0.:(\d*)/;
  return $1 ;
}

Erfüllt insofern meine Anforderung, dass ich den Wert bekomme - unschön ist es deswegen, da ich zwei Readings habe, wovon eines erst über ein Update-Event getriggert wird und damit unnötig Rechenleistung braucht. Hätte man eigentlich schön in der Perl-Expression bei dem subscribeReading erledigen können

[Reinerlein]

Hi litronics,

du könntest natürlich, um diesen Extra-Event-Aufruf über userReadings zu vermeiden, direkt ein setreading ausführen:

Code Auswählen Erweitern


{ my $value = $message=~/Analog0.:(\d*)/; fhem("setreading $name Feuchte $value"); } tele/sonoff-3188/SENSOR
Geht das denn?

Grüße
Reinerlein

[SamNitro]

Lass dir doch automatisch alles ,,zerlegen"


https://forum.fhem.de/index.php?topic=69067.0

[hexenmeister]

vor der return-Value der Expression hängt up, ob Message verarbeitet, oder verworfen wird.
Was Du natürlich machen kannst, die Variable $message nach Deinen Wünschen zu ändern.
Habe jetzt nicht getestet, sollte aber eigentlich funktionieren.

[litronics]

Dank hexenmeister hab ich die Lösung:

Code Auswählen Erweitern

{my ($value) = $message=~/Analog0.:(\d*)/;; fhem("setreading $name Feuchte_RAW $message") ;;$message=$1;; return $1} tele/sonoff-3188/SENSOR

Wenn man $message entsprechend aktualisiert, dann wird dieser Wert in das Reading geschrieben - hätte ich auch selbst drauf kommen können

Ich wollte mir eigentlich zum Testen parallel noch die ursprüngliche Nachricht als "Feuchte_RAW" Reading speichern - aber diese Anweisung wird einfach geflissentlich ignoriert von FHEM - warum auch immer.

[hexenmeister]

fhem() an dieser Stelle aufzurufen ist keine so gute Idee.
was funktionieren sollte:

Code Auswählen Erweitern

readingsSingleUpdate($hash,'Feuchte_RAW',$message,1);