Anfänger-Frage

[Aldi]

hallo,
wie kann ich denn zwei datums vergleichen
sie stehen jeweils in einem scalar in folgendem format:
tt.mm.jjjj
hat einer eine methode dafuer

gruß aus ulm

 

[GH@NDI]

Geht ganz einfach!

use Time::Local;
my ($tag1, $monat1, $jahr1) = split(/./, $datum1);
my ($tag2, $monat2, $jahr2) = split(/./, $datum1);

my $sekunden1 = timelocal(0,0,0,$tag1, $monat1, $jahr1);
my $sekunden2 = timelocal(0,0,0,$tag2, $monat2, $jahr2);

my $differenz = $sekunden2 - $sekunden1;

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

Time::Local
localtime

Die Logik dahinter:
Erst die beiden Datumsstrings in Sekunden seit 1970 umrechnen. Dann die Sekunden von einander abziehen und den unterschied der Funktion localtime übergeben, die aus den Sekunden seit 1970 die entsprechende Zeit wieder zurückberechnet.

Wenn noch fragen bleiben, einfach fragen