Opened by Froschpopo at 2008-03-14 16:41
User since
2007-05-11
923 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
2007-05-11
923 Artikel
HausmeisterIn
Ich bin ja ein 
Date::Simple-Fan, damit ginge das ungefähr so:
(ungetestet).
Mit Date::Calc geht das sicher auch, aber halt nicht mit so schöner Syntax ;-)
Date::Simple-Fan, damit ginge das ungefähr so:Code (perl): (dl
)
1 2 3 4 5 6 7 8
use Date::Simple qw(date); my $d = date("2007-01-01"); $d++ until $d->day_of_week == 5; for (; $d le '2009-04-14'; $d += 7){ print $d, $/; }
(ungetestet).
Mit Date::Calc geht das sicher auch, aber halt nicht mit so schöner Syntax ;-)