Perl语言中的时间函数：如何判断某一天是星期几（周几）？（附Perl示例代码）

在写程序时，经常需要去判断指定的某一天，是星期几。但遗憾的是，大多数的编程语言，支持的都不太好。也就是说，判断起来比较麻烦。

在Perl语言中，最方便的是安装Date::Calc，然后使用Day_of_Week方法，可以直接返回某一天是星期几。但需要安装Calc，比较麻烦。

可以通过这个链接下载Calc：http://sb.fluomedia.org/download/pkg/Date-Calc-XS-6.2.tar.gz

【相关的链接有很多Perl语言包的安装文件下载：http://sb.fluomedia.org/download/】

如果不使用Calc的话，可以使用localtime函数，返回某一天的星期。

代码如下：

#!/usr/bin/perl
use strict;
use Time::Local;

my $mon=12;
my $mday=16;
my $year=2018;

my $time=timelocal(0,0,0,$mday,$mon-1,$year);
my $wday=(localtime($time))[6];
print $wday;

对于localtime函数的返回值，也可以使用strftime函数格式化出星期几。

print strftime("星期:%u",localtime( $time ));

strftime在格式化日期显示方面，是个很好用的方法。它还支持很多其他的日期格式化格式，下面我列了一下，供大家参考：