in reply to Getting Ordinal Number of a Week in a Given Date

$ perl -MPOSIX -le'print strftime q/%W/, localtime'
35

[download]

In Section Seekers of Perl Wisdom