自周五- Perl变量以来，有多少天过去了？

Question

我在试着计算上星期五以来已经过去的天数？

例如，今天是2022年7月19日，上星期五是2022年7月15日，因此，四天过去了。7/19/2022-7/15/2022= 4天

我需要这个每天更新，只显示#的日子。

有人能帮我把这个写出来给变量赋值吗？

提前谢谢！(新编码)

Answer 1

您可以使用局部时间和简单的模块化算法：

( (localtime)[6] - 5 ) % 7

(今日指数)-(星期五指数)

Answer 2

您可以使用Date::Calc模块。这是一个班轮版本。

perl -E 'use Date::Calc qw(:all); say Delta_Days(2022,7,15, 2022,7,19,)'