Seit einiger Zeit bekomme ich kurz nach dem Start die PERL WARNING Meldungen.
...............
2023.04.14 09:10:41.732 1: PERL WARNING: Illegal hexadecimal digit 'H' ignored at (eval 724) line 1.
2023.04.14 09:10:41.733 3: eval: {ReadingsVal($name,'state',0)=~/([0-9A-F]{2})/;reverse(sprintf("%08b",abs(hex($1)-255)))}
2023.04.14 09:10:41.735 1: PERL WARNING: Use of uninitialized value $1 in hex at (eval 725) line 1.
2023.04.14 09:10:41.736 3: eval: {ReadingsVal($name,'state',0)=~/([0-9A-F]{2})/;reverse(sprintf("%08b",abs(hex($1)-255)))}
2023.04.14 09:10:41.739 1: PERL WARNING: Illegal hexadecimal digit 'H' ignored at (eval 726) line 1.
2023.04.14 09:10:41.740 3: eval: {ReadingsVal($name,'state',0)=~/([0-9A-F]{2})/;reverse(sprintf("%08b",abs(hex($1)-255)))}
2023.04.14 09:10:41.756 1: PERL WARNING: Illegal hexadecimal digit 'H' ignored at (eval 727) line 1.
2023.04.14 09:10:41.757 3: eval: {ReadingsVal($name,'state',0)=~/([0-9A-F]{2})/;reverse(sprintf("%08b",abs(hex($1)-255)))}
2023.04.14 09:10:41.759 1: PERL WARNING: Use of uninitialized value $1 in hex at (eval 728) line 1.
2023.04.14 09:10:41.760 3: eval: {ReadingsVal($name,'state',0)=~/([0-9A-F]{2})/;reverse(sprintf("%08b",abs(hex($1)-255)))}
2023.04.14 09:10:41.763 1: PERL WARNING: Illegal hexadecimal digit 'H' ignored at (eval 729) line 1.
2023.04.14 09:10:41.764 3: eval: {ReadingsVal($name,'state',0)=~/([0-9A-F]{2})/;reverse(sprintf("%08b",abs(hex($1)-255)))}
...............
2023.04.14 09:12:20.090 1: PERL WARNING: Illegal hexadecimal digit 'H' ignored at (eval 1483) line 1.
2023.04.14 09:12:20.091 3: eval: {ReadingsVal($name,'state',0)=~/([0-9A-F]{2})/;reverse(sprintf("%08b",abs(hex($1)-255)))}
2023.04.14 09:12:20.094 1: PERL WARNING: Use of uninitialized value $1 in hex at (eval 1484) line 1.
2023.04.14 09:12:20.095 3: eval: {ReadingsVal($name,'state',0)=~/([0-9A-F]{2})/;reverse(sprintf("%08b",abs(hex($1)-255)))}
2023.04.14 09:12:20.098 1: PERL WARNING: Illegal hexadecimal digit 'H' ignored at (eval 1485) line 1.
2023.04.14 09:12:20.099 3: eval: {ReadingsVal($name,'state',0)=~/([0-9A-F]{2})/;reverse(sprintf("%08b",abs(hex($1)-255)))}
2023.04.14 09:12:20.115 1: PERL WARNING: Illegal hexadecimal digit 'H' ignored at (eval 1486) line 1.
2023.04.14 09:12:20.116 3: eval: {ReadingsVal($name,'state',0)=~/([0-9A-F]{2})/;reverse(sprintf("%08b",abs(hex($1)-255)))}
2023.04.14 09:12:20.118 1: PERL WARNING: Use of uninitialized value $1 in hex at (eval 1487) line 1.
2023.04.14 09:12:20.119 3: eval: {ReadingsVal($name,'state',0)=~/([0-9A-F]{2})/;reverse(sprintf("%08b",abs(hex($1)-255)))}
2023.04.14 09:12:20.123 1: PERL WARNING: Illegal hexadecimal digit 'H' ignored at (eval 1488) line 1.
2023.04.14 09:12:20.124 3: eval: {ReadingsVal($name,'state',0)=~/([0-9A-F]{2})/;reverse(sprintf("%08b",abs(hex($1)-255)))}
...............
Meine Vermutung ist, dass dies am 10_CUL_HM.pm Modul liegt.
Hi,
das sieht doch nach einem userReadings aus?
{ReadingsVal($name,'state',0)=~/([0-9A-F]{2})/;reverse(sprintf("%08b",abs(hex($1)-255)))}Du fragst state ab, da kann doch (temporär) alles mögliche drinstehen.
Gruß Otto
Das muss sich bei einem HM Device befinden.
Ich kenne aber keine Definition mit diesem userReading.
Gibt es eine Möglichkeit dieses Reading zu suchen?
Pragmatisch grep <text> fhem.cfg
Ich habe die HM Devices gefunden.
Beim anlegen der HM-MOD-EM-8BIT Devices wird ein
define HM_5B704A_Tr CUL_HM 5B704A03 angelegt.
Dabei wird auch ein
attr HM_5B704A_Tr userReadings inputs {ReadingsVal($name,'state',0)=~/([0-9A-F]{2})/;;reverse(sprintf("%08b",abs(hex($1)-255)))} angelegt.
das hast du doch selber angelegt ;)
https://wiki.fhem.de/wiki/HM-MOD-EM-8bit_3-Kanal-Sendemodul_mit_8-Bit-Datenkanal (https://wiki.fhem.de/wiki/HM-MOD-EM-8bit_3-Kanal-Sendemodul_mit_8-Bit-Datenkanal)
Zitatdas hast du doch selber angelegt ;)
Dann war es doch ein Bockmist von mir, und hatte es vergessen weil ich das HM-MOD-EM-8BIT Device zur Seite gelegt hatte.
Meine grauen Zellen sind anscheinend nicht mehr die besten.
Jedenfalls hat sich das erledigt, bis ich mich wieder Homematic zuwende.
Danke trotzdem.