PERL5中怎样找到一年中的星期和一年中的一天

发表于:2007-07-04来源:作者:点击数: 标签:
日期是由函数localtime()返回的数组中的一个元素。(参见localtime在PERL的帮助页面的perlfunc章节中的localtime部份)。 $day_of_year = (localtime(time()))[7]; 或者更容易地表示为(在5.004或以上版本中) use Time::localtime; $day_of_year = localtime(ti
日期是由函数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是第一个星期是从星期三开始的

原文转自:http://www.ltesting.net