$wday [gelöst]

[BenMarloe]

Seit Stunden versuche ich jetzt die Variable $wday zu verwenden.
Leider bekomme ich nur diesen Fehler:

Code Auswählen Erweitern

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:

Code Auswählen Erweitern

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?

[CoolTux]

In einer eigenen Sub aus einer 99_myUtils gibt es die Variablen wday und ko nicht. Du musst sie erstmal definieren.

Code Auswählen Erweitern


my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());


[BenMarloe]

Habs kapiert:

Code Auswählen Erweitern

use Time::Local;
danke.

[CoolTux]

So wie ich es oben geschrieben habe.