Perl: Wenn "Twilight" grösser als Uhrzeit

[derHeimwerker]

Hallo zusammen,

ich möchte in meiner perl-Routine erreichen, dass wenn

1. jemand zu hause ist (gelöst)
und
2. wenn der Twilight-Sonnenaufgang vor einer bestimmten Uhrzeit liegt

ein set xy ausgelöst wird.

Mein Ansatz:

Code Auswählen Erweitern


my $Sonnenaufgang = ReadingsVal ('Twilight','sr','06:00:00'); 
...
if (($jemand_zu_hause eq "present")  and ($Sonnenaufgang lt "07:00:00") ) {

funktioniert schon mal nicht. Kann mir jemand auf die Sprünge helfen ?
Danke vorab

[Frank_Huber]

meien Empfehlung: Einrichtung des Twilight Moduls:

Code Auswählen Erweitern

define Sonnenstand Twilight 49.028755 8.453494 1 20066897
mit deinen GPS Koordinaten und Yahoo Wetter ID...

Dann kannst folgendes verwenden z.B. im DOIF:

Code Auswählen Erweitern

defmod DOIF_ROLLO_ALLGEMEIN DOIF ([{twilight("Sonnenstand","sr_civil","05:45","07:30")}])\
(set Rollos_EG offen) DOELSEIF ([{twilight("Sonnenstand","ss_astro","20:00","23:00")}]) (set Rollos_OG geschlossen)\

zu Sunrise Zivil hochfahren, aber nicht vor 5:45 und nicht nach 7:30
zu Sunset Astro runterfahren, aber nicht vor 20:00 und nicht nach 23:00

hoffe das hilft.

[derHeimwerker]

Vielen Dank Frank_Huber,

aber miene Steuerung kommt ohne DOIFs aus und ist bisher in perl realisiert, daher brauche ich eine andere Lösung. Aber trortdem "Danke"

[Frank_Huber]

für komplett in Perl gibt es auch einen Syntax hierfür.
Diesen kenne ich aber nicht auswendig. sorry.

[Otto123]

das hier habe ich vor ein paar Tagen mitgelesen -> https://forum.fhem.de/index.php?topic=76660.0
Vielleicht hilft es.

Gruß Otto