devspec-Geräteliste in Perl abfragen

[moritz3155]

Hallo,

Ich möchte in einem Perl-Skript in einem Notify alle meine Fensterkontakte abfragen. Dazu benötige ich eine Liste der Device-Names dieser Fensterkontakte als Perl-Array. Ich habe das ganze nun so gelöst:

Code Auswählen Erweitern

my @devlist = split /\s/, fhem("list .*TK.*:FILTER=TYPE=ZWave");

Dabei erscheint der list-Befehl jedoch immer im FHEM-Log samt Ausgabe, was ich gerne vermeiden würde:

Code Auswählen Erweitern

2017.08.28 13:23:01 3: list .*TK.*:FILTER=TYPE=ZWave : EG.bge.TK.Fenster
EG.bgr.TK.Fenstertuere
EG.brv.TK.Fenster
EG.empf.TK.Eingangstuere
EG.fl.TK.Eingangstuere
UG.lab.TK.Kellertuere


Gibt es in Perl einen eleganteren Weg, an die Device-Names, die auf das devspec matchen, zu kommen?

Gruß,
Moritz

[marvin78]

Code Auswählen Erweitern

devspec2array(DEVSPEC)

[moritz3155]

Das ging ja schnell Vielen Dank!