Skuffet over "Perl Cookbook"

[Christian Hansen <sslug@sslug>]

Hej

Jeg har netop fået "Perl Cookbook", som jeg håber at få meget glæde af. 
Jeg er dog blevet lidt skuffet over bogens måde at vise, hvordan man 
finder ugenummeret, hvis man kender datoen.

I bogen gives følgende eksempel:

($YEARDAY) = (localtime)[7]
$WEEKNUM = int($YEARDAY/7) +1;

I følge ovenstående bør første dag på året altid være en mandag, og 
forrige års uger rækker ikke ind i det nye år. I virkeligheden er det jo 
sådanne, at den første dag på året kan være en af alle ugens dage, og 
selve dagen vil tilhøre enten uge 52,53 eller 1. Det tages der vist ikke 
højde for i ovenstående. Jeg har udviklet en algoritme til finding af 
ugenummer i forbindelse med et projekt. Den er godt nok skrevet i JAVA; 
men bør uden de helt store problemer kunne omskrives til Perl, hvilket 
jeg også er i gang med, da jeg skal bruge det. Hvis nogen har brug for 
at kende et ugenummer, skal jeg nok poste den herude:-)

MVH Christian