Advent berechnen (Zeiträume) - schwer...

[Struppi]

Also:

1. Wochentag des 24.Dezember herausfinden - herunterzählen bis zum ersten Sonntag - von dort (4. Advent) 7 Tage abziehen (3. Advent) 14 Tage für 2. Advent und 21 für 1. Advent.

Wie kann ich das Codeseitig bewerkstelligen?

http://perldoc.perl.org/functions/localtime.html

#!/usr/bin/perl -w  
use strict;  
use Time::Local;  
  
print get_wday('24.12.2008');  
sub get_wday{  
 my $datum_str = shift || return -1;  
 my($day, $month, $year) = split /\./, $datum_str;  
 return -1 if $day < 1 or $day > 31;  
 return -1 if $month < 1 or $month > 12;  
 my $time = timelocal(0, 0, 0, $day, $month - 1, $year);  
 return (localtime($time))[6];  
}

Struppi.