用Perl从日期开始获取一天

Question

有没有一种方法可以在提供日期的情况下找出一周中的哪一天。我该如何用Perl进行编码？

例如

给定2016年2月2日（日-月-年）周五的输出注意：不使用任何模块。

Answer 1

注意：不使用任何模块

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

幸运的是，有一个内置模块可以做到这一点，Time:：Piece。它具有将日期解析为对象的时间。从那里你可以问它很多事情。

use v5.10;
use strict;
use warnings;
use Time::Piece;
my $time = Time::Piece->strptime("02-02-2016", "%d-%m-%Y");
say $time->fullday;