日期是由函数localtime()返回的数组中的一个元素。(参见localtime在PERL的帮助页面的perlfunc章节中的localtime部份)。
$day_of_year = (localtime(time()))[7];
或者更容易地表示为(在5.004或以上版本中)
use Time::localtime;
$day_of_year = localtime(time())->yday;
你能够通过这个7来区分出一年中的这个星期。
$week_of_year = int($day_of_year / 7);
当然，这个星期是从0开始的。
CPAN中的Date::Calc模块提供了许多日期计算的功能，包括：
一年中的哪一天，一年中的哪一个星期，等等。
注意，并不是所有的事情都认为星期是从“week 1”开始的。比如，美国人常常认为第一个星期是从第一个星期一开始的，尽管ISO 8601认为WW1是第一个星期是从星期三开始的 |