Differenz zweier Datums

[Struppi]

@Struppi--- mal anders..
DATUM:
01.03.2001
02.11.2008

wie bilde ich jetzt daraus eine Differenz ?

In dem du diese Zeichenketten in timestamps umwandelst (hat z.T. schon Beat erläutert wie das geht) und von diesen die differenz bildest.

Du musst Wissen, dass ich PERL nie wieder brauche und auch daher mich kaum mit dem Thema auseinander setze...

Darum wäre mir besser geholfen wenn ich ein richtiges Bsp.: bekommen könnte...

Also gut, weil's kurz ist:

#!/usr/bin/perl -w  
use strict;  
  
use Time::Local;  
my $date_1 = '1.3.2001';  
my $date_2 = '3.11.2008';  
  
print timestamp($date_2) - timestamp($date_1);  
  
sub timestamp{  
 my $str = shift;  
 my ($tag, $monat, $year) = split /\./, $str;  
    return timelocal( 0, 0, 0, $tag, $monat - 1, $year);  
}  

Struppi.