Ich lese den Status meines Saugroboter mit folgendem Code aus.
defmod robo_status dummy
attr robo_status alias Status
attr robo_status event-on-change-reading .*
attr robo_status group RoboVac
attr robo_status room Home
attr robo_status stateFormat Batterie: batterie %
attr robo_status 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/Pause:.([\w]+)/$1/eg;;;;return $1},\
batterie {my $val=ReadingsVal("$name", "sauger", 0);;;;$val=~s/Level:.([-\d.]+)/$1/eg;;;;return $1},\
error {my $val=ReadingsVal("$name", "sauger", 0);;;;$val=~s/Code:.([-\d.]+)/$1/eg;;;;return $1},\
speed {my $val=ReadingsVal("$name", "sauger", 0);;;;$val=~s/Speed:.([\w]+)/$1/eg;;;;return $1},\
Nach jedem Auslesevorgang wird folgende Zeile in die log Datei geschrieben:
Scalar value @_[0] better written as $_[0] at /opt/fhem/fhem.pl line 6405.
Das Problem liegt in der ersten Zeile des Userreadings. Was muss ich ändern um die Fehlermeldung weg zu bekommen?
Update.
https://forum.fhem.de/index.php/topic,127028 (https://forum.fhem.de/index.php/topic,127028)