Auslagern in myUtilys

[stefan-dd]

Hallo,
ich möchte das u.a. folgende Userreading in die myUtilys auslagern.

Code Auswählen Erweitern

batterie {my $val=ReadingsVal("test", "sauger", 0);;$val=~s/battery:.([-\d.]+)/$1/eg;;return $1},

Wie muss ich den Code anpassen, damit ich ein Reading zurück bekomme?

[TomLee]

Hallo,

ins Tiefblaue,

glaube auf mehrere Fragen die du mglw. hast kann dir ein Thread von mir weiterhelfen zu optimieren ?

Zu deiner Frage, mein ich, du suchst einfach nach setreading ?


Gruß

Thomas

[stefan-dd]

Dort habe ich nicht das passende gefunden, bzw sehe es nicht.

So funktioniert der Code in der Eingabezeile, aber nicht in der myUtilys.

Code Auswählen Erweitern

{my $val=ReadingsVal("robo_status", "sauger", 0);;$val=~s/battery:.([-\d.]+)/$1/eg;;fhem("setreading Robovac batterie $1");
my $val1=ReadingsVal("robo_status", "sauger", 0);;$val1=~s/play:.([\w]+)/$2/eg;;fhem("setreading Robovac play $2")}



Was stimmt da noch nicht?

[Otto123]

Der Code ist mir etwas merkwürdig, wollte ich gerade schreiben.
Aber wenn Du sagst funktioniert - aber nicht in der myUtilys dann zeig doch mal bitte deine myUtilys - meinst Du eigentlich die 99_myUtils.pm ? Vielleicht ist diese Datei ja grundlegend verkehrt?

Gruß Otto

[stefan-dd]

Code Auswählen Erweitern

package main;
use strict;
use warnings;
use POSIX;

use Time::Local;
sub
robovacUtils_Initialize($$)
{
  my ($hash) = @_;
}

sub robovac() {

{my $val=ReadingsVal("robo_status", "sauger", 0);;$val=~s/battery:.([-\d.]+)/$1/eg;;fhem("setreading Robovac batterie $1");
my $val1=ReadingsVal("robo_status", "sauger", 0);;$val1=~s/play:.([\w]+)/$2/eg;;fhem("setreading Robovac play $2")}


}
1;

[Otto123]

dacht ichs mir 
https://wiki.fhem.de/wiki/99_myUtils_anlegen

Machs bitte nochmal richtig - Du hast ja gesagt die Datei heisst myUtilys - bei deinem Inhalt müsste sie 99_robovacUtils.pm heissen?!

Der Name der Programmdatei muss mit dem Namen der Initialize-Routine übereinstimmen. Wenn Sie Ihr Programm also 99_Werkzeugkasten.pm nennen, muss die im code dargestellte initialize-Routine sub Werkzeugkasten_Initialize heißen.

Zusätzlich: In der Eingabezeile müssen die ; verdoppelt werden. In der 99_myUtils.pm genügen einfache. Doppelte sind nicht immer aber manchmal falsch.
Doppelte {{ Code .. }} braucht es auch nicht.

Der zweite Codeteil dürfte nicht funktionieren:

Code Auswählen Erweitern

my $val1=ReadingsVal("robo_status", "sauger", 0);;$val1=~s/play:.([\w]+)/$2/eg;;fhem("setreading Robovac play $2")
$1 ist der erste match, $2 wäre der zweite Groupmatch - klingt jetzt für Dich eventuell wie böhmische Dörfer - soll es auch

Eigentlich geht es so: $val1=~ /play:.([\w]+)/ in $1 steht dann der Inhalt der Treffer von ([\w]+) Du brauchst an der Stelle kein search/replace  ein match reicht.

Hier kannst Du gut testen und findest weitere Erklärungen: https://regex101.com/r/K7iXLA/1

Deine Abfragen sehen so nach Reading Events aus. Ich bin mir nicht sicher ob der Inhalt der Readings wirklich so ist wie Du suchst.

[stefan-dd]

Danke, es klingt für mich wirklich nach böhmische Dörfer. Die Benennung und Ansteuerung des ausgelagerten Codes habe ich richtig, nur hier nicht richtig benannt.
Nochmal Schritt für Schritt...
Reading lesen: wird in Variable $val geschrieben

Code Auswählen Erweitern

my $val=ReadingsVal("robo_status", "sauger",0);
Reading filtern: $val wird gefiltert und soll in $2 geschrieben werden

Code Auswählen Erweitern

$val=~s/play:.([\w]+)/$2/eg;
Reading zurück schreiben: $2 soll in ein reading geschrieben werden

Code Auswählen Erweitern

fhem("setreading Robovac batterie $2");

Den Code hatte ich auf der angegebenen Seite zuvor auch getestet, funktioniert auch als userreading.

In der dargestellten Variante erhalte ich die folgende Fehlermeldung in der Fhem Konsole, weis aber nicht woran es liegt?

Code Auswählen Erweitern


Usage: setreading <name> [YYYY-MM-DD HH:MM:SS] <reading> <value>
where <name> is a single device name, a list separated by comma (,) or a regexp. See the devspec section in the commandref.html for details.

Wo ist der, oder die Fehler?

[Otto123]

Zeigst Du mal bitte ein list robo_status

Und probiere bitte diese beiden Varianten  (meine und Deine) in deiner Eingabezeile:

Code Auswählen Erweitern

{my $val1='play: willi';;$val1=~ /play:.([\w]+)/;;return $1}

Code Auswählen Erweitern

{my $val='play: willi';;$val=~s/play:.([\w]+)/$2/eg;;return $2}
Wenn meine falsch ist und Deine das liefert was Du willst, dann hast Du Recht

[stefan-dd]

Code Auswählen Erweitern


MOBIL
Arbeitszimmer
Kinderzimmer
Fabian
Schlafzimmer
Wohnzimmer
Küche
Bad/WC
Flur
Garten
Beschattung
Heizung/Klima
Wetter
Tür/Tor
Kamera
TV/Radio
Home
Homekit
Unsorted
icoEverything Everything
Logfile
Commandref
Edit files
Event monitor
Update
UpdateCheck
Internals:
   FUUID      6022efd8-f33f-804b-0ed7-957e1ef3adaf58e8
   NAME       robo_status
   NR         1519
   STATE      Batterie: 100
   TYPE       dummy
   READINGS:
     2021-02-13 11:07:05   batterie        100
     2021-02-13 11:07:05   error           0
     2021-02-13 11:07:05   gohome          true
     2021-02-13 11:07:05   play            true
     2021-02-13 11:07:05   sauger           / > eufy-robovac@1.4.3 start /opt/fhem/robovac / > node start.js "bf60a803b02612aab9nf4r" "ddc7a3f8c3528fb4" "status" /  /  / play: true / direction: undefined / workmode: auto / gohome: true / speed: Standard / find: undefined / battery: 100 / error: 0 /
     2021-02-13 10:39:18   setting         101
     2021-02-13 11:07:05   speed           Standard
     2021-02-13 11:07:05   state           start
Attributes:
   group      RoboVac
   stateFormat Batterie: batterie
   userReadings sauger { my ($error, @content) = FileRead({FileName => "/opt/fhem/robovac/log.txt", ForceType => "file"});; return join(" / ", @content)},
play {my $val=ReadingsVal("$name", "sauger", 0);;$val=~s/play:.([\w]+)/$1/eg;;return $1},
gohome {my $val=ReadingsVal("$name", "sauger", 0);;$val=~s/gohome:.([\w]+)/$1/eg;;return $1},
batterie {my $val=ReadingsVal("$name", "sauger", 0);;$val=~s/battery:.([-\d.]+)/$1/eg;;return $1},
error {my $val=ReadingsVal("$name", "sauger", 0);;$val=~s/error:.([-\d.]+)/$1/eg;;return $1},
speed {my $val=ReadingsVal("$name", "sauger", 0);;$val=~s/speed:.([\w]+)/$1/eg;;return $1},
setting {my $val=ReadingsVal("$name", "sauger", 0);;$val=~s/"*"([\d]+)/$1/eg;;return $1}

[Otto123]

Siehe mein Beispiel (hatte gerade editiert) Du hast die Bedeutung von $1 und $2 nicht verstanden!

[Otto123]

Also nimm doch deinen Code erstmal so wie er ist und schreibe als letztes einfach immer $1 in Dein Reading.

Code Auswählen Erweitern

my $name ='robo_status';
my $val=ReadingsVal("$name", "sauger", 0);$val=~s/speed:.([\w]+)/$1/eg;setreading $name speed $1

Optimieren und schön machen kommt später.

Wo willst Du Deine Sub denn dann aufrufen? In deinem userReadings sauger? Das wird nicht funktionieren.

[stefan-dd]

Hallo,
für ein Reading funktioniert dies.
Bei 2 bekomme ich eine Fehlermeldung.

Code Auswählen Erweitern

Can't locate object method "batterie" via package "100" (perhaps you forgot to load "100"?) at ./FHEM/99_robovacUtils.pm line 18.

Code Auswählen Erweitern

my $name ='Robovac';
my $val=ReadingsVal("robo_status", "sauger", 0);

$val=~s/battery:.([\w]+)/$1/eg;setreading $name batterie $1;
$val=~s/gohome:.([\w]+)/$2/eg;setreading $name gohome $2;

Die sub rufe ich testweise mit

Code Auswählen Erweitern

{robovac()} auf, was auch funktioniert.

[Pfriemler]

Also nimm doch deinen Code erstmal so wie er ist und schreibe als letztes einfach immer $1 in Dein Reading.

Wenn das userReading

Code Auswählen Erweitern

gohome {my $val=ReadingsVal("$name", "sauger", 0);;$val=~s/gohome:.([\w]+)/$1/eg;;return $1},
funktioniert, wieso kommst Du überhaupt auf $2?

Siehe mein Beispiel (hatte gerade editiert) Du hast die Bedeutung von $1 und $2 nicht verstanden!

ACK.

Außerdem verstehe ich nicht, warum du plötzlich in einem Device "Robovac" readings setzen möchtest - oder war Sinn und Zweck der Übung der Auslagerung, die Readings in einem anderen Gerät zu erzeugen?

Code Auswählen Erweitern

my $name ='Robovac';
...
... ;setreading $name batterie $1;


[TomLee]

Mal ein Beispiel basierend auf dem Wissen das mir in dem oben verlinkten Thread vermittelt worden ist und  den Matches aus dem List.

Du müsstest eigentlich nur noch das sauger-userReading mit FileRead ergänzen (das hab ich im Dummy mit setreading gesetzt gehabt) definieren, mein ich:

Code Auswählen Erweitern

defmod du_testy dummy
attr du_testy room Test
attr du_testy setList on off
attr du_testy userReadings play {robovac1($name,ReadingsVal($name,"sauger",0))},\
gohome {robovac2($name,ReadingsVal($name,"sauger",0))},\
batterie {robovac3($name,ReadingsVal($name,"sauger",0))},\
error {robovac4($name,ReadingsVal($name,"sauger",0))},\
speed {robovac5($name,ReadingsVal($name,"sauger",0))},\
setting {robovac6($name,ReadingsVal($name,"sauger",0))}

setstate du_testy on
setstate du_testy 2021-02-13 12:52:08 batterie 100
setstate du_testy 2021-02-13 12:52:08 error 0
setstate du_testy 2021-02-13 12:52:08 gohome true
setstate du_testy 2021-02-13 12:52:08 play true
setstate du_testy 2021-02-13 12:20:58 sauger / > eufy-robovac@1.4.3 start /opt/fhem/robovac / > node start.js "bf60a803b02612aab9nf4r" "ddc7a3f8c3528fb4" "status" /  /  / play: true / direction: undefined / workmode: auto / gohome: true / speed: Standard / find: undefined / battery: 100 / error: 0 /
setstate du_testy 2021-02-13 12:45:09 setting Standard
setstate du_testy 2021-02-13 12:52:08 speed Standard
setstate du_testy 2021-02-13 12:52:08 state on

Code Auswählen Erweitern

##############################################
# $Id: myUtilsTemplate.pm 21509 2020-03-25 11:20:51Z rudolfkoenig $
#
# Save this file as 99_myUtils.pm, and create your own functions in the new
# file. They are then available in every Perl expression.

package main;

use strict;
use warnings;

sub robovacUtils_Initialize {
  my $hash = shift//return;
  return;
}


# Enter you functions below _this_ line.


sub robovac1 {
my $name = shift;
my $val = shift;
$val=~/play:.([\w]+)/;

return $1;}

sub robovac2 {
my $name = shift;
my $val = shift;
$val=~/gohome:.([\w]+)/;

return $1;}

sub robovac3 {
my $name = shift;
my $val = shift;
$val=~/battery:.([-\d.]+)/;

return $1;}

sub robovac4 {
my $name = shift;
my $val = shift;
$val=~/error:.([-\d.]+)/;

return $1;}

sub robovac5 {
my $name = shift;
my $val = shift;
$val=~/speed:.([\w]+)/;

return $1;}

sub robovac6 {
my $name = shift;
my $val = shift;
$val=~/"*"([\d]+)/;

return $1;}
1;

Wenns auch nur mit einer Sub geht bin ich gespannt auf diesen Weg, erstmal komm ich nicht drauf.

[Otto123]

@stefan-dd Du hast jetzt ziemlich viele meiner Hinweise ignoriert oder einfach nicht darüber gesprochen. Solange Du nicht klar kommunizierst was Du gemacht und verstanden hast, sehe ich diese Baustellen:
Deine Datei 99_myUtils.pm ist eventuell mehrfach falsch.
Du hast das Prinzip des Groupmatch mit regExp nicht verstanden. (Die Sache mit $2)
Du bist nicht klar, welches Device Du jetzt wie mit Readings beschicken willst.

Arbeite bitte alle Hinweise (Und Links!) von Thomas und mir nochmal durch und frage wieder wenn noch was unklar ist. Aber liefere dann bitte einen kompletten Satz Informationen. Und frage gezielt was Du nicht verstanden hast. Ansonsten wird das nix.