从Perl的日期开始

Question

有没有办法在提供日期时查找星期几。我将如何在Perl中编写代码？

例如

鉴于2016年2月2日（dd-mm-yyyy）产出周五 注意：不使用任何模块。

Answer 1

  

注意：不使用任何模块。

日历很难。不，日历真的很难！这很容易出错。使用模块。

幸运的是，有一个内置模块可以做到这一点Time::Piece。它有strptime来将日期解析为一个对象。从那里你可以问它很多东西。

use v5.10;
use strict;
use warnings;
use Time::Piece;

my $time = Time::Piece->strptime("02-02-2016", "%d-%m-%Y");
say $time->fullday;