PERL Timestamp

[rthill]

Wie kann ich in PERL eine Zeistempel generieren mit aktueller Zeit/Datum plus 3 Monate?
Ich benötige dies um in einem LDAP Server die Passwörter umzuändern, bezihungsweise ablaufen zu lassen.

Danke im Vorraus.

Raoul

[phate]

Hi rthill,

schau Dir mal das Modul Date::Calc [1] an. Was Du davon brauchst sind die Funktionen:
Today()
Now()
und eine der Add_Delta_ Funktionen
Mag sein, dass Dein Vorhaben auch trivialer zu erschlagen ist, aber für jegliche Zeitarithmetik bin ich damit bisher immer gut gefahren.

Gruss,

phate

[1] http://search.cpan.org/dist/Date-Calc/Calc.pod