Kalenderwoche mit datum errechnen

[CPAN]

week in DateTime
Einfacher geht's nun wirklich nicht mehr.

  
    > re.pl  
  
    $ use DateTime qw();  
  
    $ [DateTime->now->week]  
    $ARRAY1 = [  
                2011,  
                34  
              ];