PERL 使用本地时间我如何计算下工作日

Question

我正在尝试使用以下变量计算第二天（例如星期一/星期二/星期三等）。

示例：本地时间天是星期三，我要求星期四，偏移量是 +1，天是星期四，我要求星期一，偏移量是 +4

my @days = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime

有没有某种算法我可以解决这个问题？我无法在 Perl 中使用 DateTime & Time::Piece 库作为限制。

我正在使用：

my $daysToAdd = 8 - $wday; # picks up how many days there is until next Monday

感谢您的帮助，谢谢！

Answer 1

对于 Perl 中的基本日期处理，扔掉 localtime 并使用内置的 Time::Piece 类。 It will do basic date math.

use strict;
use warnings;
use v5.10;

use Time::Piece;
use Time::Seconds;  # Some useful constants like ONE_DAY

my $now = Time::Piece->new;
say $now;

my $tomorrow = $now + ONE_DAY;
say $tomorrow;

---

就计算两个工作日之间的偏移量而言，将它们映射到数字并使用这些数字。星期日为 0，星期一为 1，以此类推。计算两个工作日之间必须提前多少天的算法是......

(7 - $current_dow + $new_dow) % 7

将其扩展：7 - $current_dow 是从当天到一周结束的天数。然后，您将所需的日期添加到其中。整个事情都是 mod 7（所以 8 变成 1）来处理向前移动几天（即周三到周五）的情况。

星期五到星期四这样做是......

(7 - 5 + 4) % 7
(2 + 4) % 7
6 % 7
6

周五到周六这样做是...

(7 - 5 + 6) % 7
(2 + 6) % 7
8 % 7
1

这是代码。

my $day = 4; # Thursday
my $days_offset = (7 - $now->day_of_week + $day) % 7;
my $thursday = $now + ($days_offset * ONE_DAY);
say $thursday;