Ermitteln ob ein Datum gültig ist

[Matti Maekitalo]

use Mosche;

Ich kenn mich in der Perl-Datumsthematik leider nur sehr rudimentär aus und versuche ein Datum das in der Zukunft liegt zu prüfen ob es gültig ist.

So sollte also der 31.04.2002 als falsch entlarft werden. Gibts irgendeine Kalender-Funktionalität in Perl?

use Time::Local;

my @timetocheck = (0, 0, 0, 31, 4, 2002); # 31.04.2002 um 0:00

if (timelocal(@timtocheck) > localtime) {
 print "Datum liegt in der Zukunft\n";
}

use Tschoe qw(Matti);