[GELÖST!] devspec2array - ich krieg's nicht hin

[DocCyber]

Hallo FHEMisten!

Ich möchte gern alle batteriebetriebenen (Homematic-)Geräte in ein Array schreiben, komme aber in diesem Fall mit devspec2array nicht klar.

Die folgende "Lösung" funktioniert zwar, findet aber natürlich nur Geräte mit battery: ok

Code Auswählen Erweitern


my @battArray = devspec2array("(.*):FILTER=battery=ok");


Ich habe es mit einem RegEx versucht, aber damit werden dann sämtliche Geräte gefunden (auch solche ohne Batterie):

Code Auswählen Erweitern


my $filter =~ /low|ok/;
my @battArray = devspec2array("(.*):FILTER=battery=$filter");


Wie stelle ich es an, dass alle Batteriegeräte unabhängig vom Batteriestatus gefunden werden?

[justme1968]

FILTER=battery=.+ oder FILTER=battery=..*

[DocCyber]

Vielen Dank für deine Hilfe! 

[DeeSPe]

Wenn Du nur bestimmte Werte "durchlassen" willst dann wäre auch sowas möglich:

Code Auswählen Erweitern

my @battArray = devspec2array("battery=(ok|low)");

Gruß
Dan

[DocCyber]

Wenn Du nur bestimmte Werte "durchlassen" willst dann wäre auch sowas möglich:

Code Auswählen Erweitern

my @battArray = devspec2array("battery=(ok|low)");

Auch ein sehr nützliche Info! Vielen Dank!

[Jorge3711]

Wo finde ich den grundsätzliche Informationen zur Funktion "devspec2array"? In der cmdref habe ich nix gefunden, im Wiki nur verschiedenste Anwendungsbeispiele.

Danke!

[DeeSPe]

Da gibt es keine weiteren grundsätzlichen Informationen.
Der Name ist Programm.

Gruß
Dan

[justme1968]

https://wiki.fhem.de/wiki/DevelopmentModuleAPI#devspec2array

[Jorge3711]

Danke für den Wiki-Link. Den Artikel hatte ich eigentlich erwartet aber wohl aus Betriebsblindheit übersehen.

Spuckt mir folgendes dann die Anzahl der Türfensterkontakte aus, die den Status offen haben?

Code Auswählen Erweitern


my @tfk=devspec2array("subType=threeStateSensor");
my @windowOpen = undef;

foreach(@tfk) {
    $state = ReadingsVal($_,"state","nA");
    if ($stage eq "open"){
        push(@windowOpen,$_);
    }
}

print "Es sind $#windowOpen Fenster offen!";


Kann so ein Codeschnipsel auch irgendwie "live" getestet werden (FHEM Telnetkonsole o.ä.)?

Danke und Gruß

[justme1968]

das geht auch auf einen rutsch mit FILTER. testen kannst du es direkt per telnet:

Code Auswählen Erweitern

{devspec2array("subType=threeStateSensor:FILTER=state=open")}

[Jorge3711]

Cool! Aber da ich gerade versuche PERL zu lernen, interessiert mich ob mein Codesnipsel das (von mir) erwartete Ergebnis liefern würde.

[justme1968]

probier es doch aus

alles in eine routine in 99_myUtils.pm stecken und dann per {...} aufrufen.

gruss
  andre

[Jorge3711]

Gesagt, getan:

Code Auswählen Erweitern


sub tfkTest2($) {

    my ($recipient) = @_;
    my @tfk=devspec2array("subType=threeStateSensor:FILTER=NAME=sec.tfk..*");  # Welche "echten" Türfensterkontakte gibt es überhaupt
    my @windowOpen    = undef;
    my @lastStanding  = undef;
   
    # Anzahl offener Fenster ermitteln
    #

    foreach(@tfk) {
        my $state = ReadingsVal($_,"state","nA");
        my $dev   = AttrVal($_,"alias", "nA");
        if ($state eq "open") {
            push(@windowOpen,$dev);
        }
    }
    my $msg = "Es sind $#windowOpen Fenster offen! Bitte @windowOpen schliessen."; #@lastStanding hat als letztes das Haus verlassen.";
    #Debug($msg);
    Log3("tfkAlert", 3, $msg);
    fhem("set TelegramBot msg $recipient $msg");
}


Funktioniert (ja, große Teile meines Codes wären durch {devspec2array("subType=threeStateSensor:FILTER=state=open")} bereits erschlagen, aber ich will mich ja in Perl einarbeiten). Und jetzt spame ich den Thread nicht weiter voll.