從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;