Seit Stunden versuche ich jetzt die Variable $wday zu verwenden.
Leider bekomme ich nur diesen Fehler:
2016.11.12 21:36:42 3: prg_sunrise return value: Undefined subroutine &main::wday called at (eval 129204) line 14.
Usache ist diese Modul:
prg_sunrise {
..
if ((&wday == 0) || ($wday == 7)) {
Log 3, "Wochenende ";
($hour, $min, $sec) = split(":", ReadingsVal("wecker_we","state",0));
}
else {
Log 3, "Kein Wochenende"; ($hour, $min, $sec) = split(":", ReadingsVal("wecker","state",0));
}
my...
Was mache ich falsch? Muss ich irgendein Modul einbinden und wenn ja wie?
In einer eigenen Sub aus einer 99_myUtils gibt es die Variablen wday und ko nicht. Du musst sie erstmal definieren.
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
Habs kapiert:
use Time::Local;
danke.
So wie ich es oben geschrieben habe.