Date::Calc richtig genutzt? (gelöst) - #129548 (Fragen zu Perl-Modulen)

bianca

2009-12-19 16:35

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Kurze Frage am Rande:

Wenn ich ausgehend von einem Datum den ersten Tag der Woche ermitteln möchte, mache ich dies hier:

Code (perl): (dl )

1
2
3

my $heute = '19.12.2009';
my $wochenstart = join ('.', reverse Add_Delta_YMD (reverse (split /\./,$heute),0,0,-(Day_of_Week (reverse split /\./,$heute) - 1)));
print "Wochenstart: >$wochenstart<\n";

Klappt hervorragend aber ist das wirklich so einfach?
Danke Euch!

10 print "Hallo"
20 goto 10