今天如何检查Perl周一？

Question

我怎样才能检查Perl今天是星期一？

需要安装哪些模块？

任何人都可以帮我一个例子吗？

Answer 1

最简单的方法就是使用localtime.它返回一个值列表.其中第七个是工作日,从周日开始.因此,星期一的值为1.如果没有给出参数,它使用当前时间(time),这是你想要的.

if ( (localtime)[6] == 1) {
  print "Today is Monday!\n";
}

因为我们只需要索引6(第七个返回值),所以我们可以放置parens localtime来强制它进入列表,并直接从该列表访问索引.我们可以将该标量值与之比较1.

localtime是一个内置的功能.无需任何额外的模块,甚至不包括Perl Core中的模块.这只是开箱即用.