Perl Routine: Aus ZeitAttribut Readings Stunde und Minute exportieren

[derHeimwerker]

  cool !! Danke. So hatte ich mir das vorgestellt !

[derHeimwerker]

Dank eurer Hilfe, bekomme ich die Attribute jetzt ausgewertet und ich kann entsprechende Readings anlegen.
Jetzt möchte ich noch alle Readings eines Device auslesen bzw. mit Wildcards "*Zeit*" ausgeben.

Stehen die auch in einem globalen Hash ?

[dev0]

https://wiki.fhem.de/wiki/DevelopmentModuleIntro#Readings
https://fhem.de/commandref.html#perl

[derHeimwerker]

Ich bin wieder einen Schritt weiter
So funktioniert meine Routine:

Code Auswählen Erweitern

sub test($) {
my $dev = @_;
    foreach my $readings (keys %{$defs{'Roll.Kueche'}{READINGS}}) {
   if ($readings =~ /Auto/) {
  Log 1, ("$readings gefunden");
   }
   }
}

So leider nicht:

Code Auswählen Erweitern

sub test($) {
my $dev = @_;
    foreach my $readings (keys %{$defs{$dev}{READINGS}}) {
   if ($readings =~ /Auto/) {
  Log 1, ("$readings gefunden");
   }
   }
}

Aufruf der Funktion über : {test("Roll.Kueche")}

Wo liegt mein Fehler ?

[dev0]

Code Auswählen Erweitern

my ($dev) = @_;
Ohne Klammern bekommst Du nur die Anzahl der Arrayelemente geliefert.

[derHeimwerker]

Klasse ! Auch das hat funktioniert. Danke !