Opened by jan10001 at 2005-03-14 01:51
User since
2003-08-14
962 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
962 Artikel
BenutzerIn
Danke für die Tips!
@ptk
Mit Date::Calc kam ich nicht klar die check_date Funktion wollte einfach nicht. Da war immer alles falsch. :(
@pKai
Damit es läuft mußte noch "-1900" rein, aber jetzt läufts. :)
@ptk
Mit Date::Calc kam ich nicht klar die check_date Funktion wollte einfach nicht. Da war immer alles falsch. :(
@pKai
Damit es läuft mußte noch "-1900" rein, aber jetzt läufts. :)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use strict;
use warnings;
use Time::Local;
my @A = (
[25, 6, 1996 ],
[31, 2, 2005 ],
[29, 2, 2000 ],
);
foreach my $dmy (@A) {
my ($d, $m, $y) = @{$dmy};
print "invalid date: $d.$m.$y\n" unless eval { timelocal (0,0,0,$d,$m-1,$y-1900) };
}