Kleines Rechenproblem mit Date::Calc: Will einen Monat von heute zurückrechnen - #76068 (Fragen zu Perl-Modulen)

krusty

2007-04-20 15:46

User since
2006-01-27
91 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

habe ein kleines Problem. Ich schreibe gerade ein Script das zum 1. eines jeden Monats ausgeführt werden soll. Dazu verwende ich die crontab des Servers. Jetzt muss ich aber genau einen Monat zurückrechnen und den Timestamp in einer Variablen speichern. Diesen brauche ich nämlich um einen MySQL Befehl absetzen zu können der mir einen Durchschnittswert liefert von dem vergangenen Monat.

So das aktuelle Datum ermittle ich mit folgenden Zeilen:

Code: (dl )

1
2
3

my ($sec,$min,$hour,$day,$month,$year) = (localtime)[0..5];
$month++;
$year+=1900;

Nun habe ich bei CPAN nachgeschaut ob ich mit dem Modul Date::Calc soetwas hin bekomme. Vielleicht habe ich die entsprechende Funktion nur übersehen oder nicht richtig verstanden. Auf jeden Fall bin ich nicht fündig geworden. Hat jemand von euch eine Idee wie ich genau einen Monat zurückrechnen kann?
Man könnte sicherlich den Wert aus $month nehmen und eins abziehen. Natürlich vorher prüfen ob $month gleich 1 ist, dann den wert von $month2 auf 12 setzten und gut ist. Aber gibt es nicht auch eine Funktion dafür?