ich versuche mich auch gerade daran. Mit dem folgenden Code kann ich eine gegebene Uhrzeit um eine beliebige Anzahl von Minuten (Offset) addieren oder subtrahieren.
# Zur Übernahme des Datums und der Zeit von heute:
my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime;
# Nun umgekehrt die zu verändernde Stunde und Minute (z.B. Weckzeit) einspielen. Steht bei mir in $NextAlarmTime als hh:mm:
my $NextAlarmTimeP = mktime(0,substr($NextAlarmTime,3,2),substr($NextAlarmTime,0,2),$mday,$month,$year,$wday,$yday,$isdst);
# Die Zeitverschiebung berechnen. Steht bei mir in $Poffset (als Minuten):
my $NextAlarmTimePM = $NextAlarmTimeP + $Poffset * 60;
# Nun wieder zurück in Stunde und Minute etc. umändern:
my ($Psec,$Pmin,$Phour,$Pmday,$Pmonth,$Pyear,$Pwday,$Pyday,$Pisdst) = localtime($NextAlarmTimePM);
# Jetzt noch in eine Uhrzeit konvertieren. Tag, Monat und Jahr müsste auch richtig berechnet werden:
my $NextAlarmTimePHM = $Phour.':'.$Pmin;
# hier: 23:20
Ich hoffe, es hilft.
Bald will ich auch meine Lösung für die Übernahme der Weckzeit von der FritzBox posten. Ich bin bald soweit :-)
LaLeLu