Geräteliste in PERL-Funktion

[gromeck]

Hallo,

ich versuche pro Raum den jweiligen Status der darin enthaltenen Fenster in einen Wert zu aggregieren.
Die Fenster und Türen sind vom Muster (EG|OG).<Raumname>.(Fenster|Tuer|Haustuer).
Alle Fenster haben HM-RHS-Sensoren, sind in FHEM bekannt und das entsprechende notify spring an:

Code Auswählen Erweitern

define Notify.Status.Fenster notify [^\.]*\.[^\.]*\.(Fenster|Tuer|Haustuer).*:(open|closed|tilted) {
    Log 1,"Notify.Status.Fenster: Name=".$NAME."  EVENT=".$EVENT;
    my ($area,$room,$device) = split /\./, $NAME;
    Log 1,"Notify.Status.Fenster: area=".$area."  room=".$room."  device=".$device;
    :
}

Wie komme ich denn nun in Perl an die Liste der Geräte pro Raum?
Gibt es einen Call wie etwa:

Code Auswählen Erweitern

getDevices("EG.Buero.(Fenster|Tuer).*")

Eine seperate Implementierung pro Raum würde ich gerne vermeiden.

Ich habe in der Doku nix gefunden.

Any hints? Danke.

gromeck

[CoolTux]

Code Auswählen Erweitern


my $device = join( ",",devspec2array("room=Schlafzimmer") );


[gromeck]

Danke.
Gibt es eine Doku in der solche Calls drin stehen? In der CommanRef steht nix.

[justme1968]

zum beispiel im wiki: http://www.fhemwiki.de/wiki/DevelopmentModuleAPI#devspec2array.

gruss
  andre

ps: schau dir mal structure an. damit kann man auch aggregieren.