Schönes Perl - OOP, getter, setter (gelöst) - #175480 (Allgemeines zu Perl)

rosti

2014-05-11 20:59

User since
2011-03-19
3472 Artikel
BenutzerIn

Muttertag, schönes Beispiel, schönes Perl:

Code (perl): (dl )

my $sca = Scaliger->new( date => '1.5.2014') or die $@;
 # wd: Wochentag numerisch, jd: Scaliger-Tag (julianischer Tag)
my $jd_mother = 14 - $sca->wd + $sca->jd; # der 2. Sonntag im Mai
 # passt ;)
say $sca->gregdate( jd => $jd_mother ), " ", $sca->wochentag( jd => $jd_mother );

Schönen Abend ;)

PS: Geht aber auch einfacher, 15 - Wochentag; fertig ;)
Last edited: 2014-05-12 01:16:16 +0200 (CEST)