自星期五以来已经过了多少天- Perl变量

tkclm6bt  于 2022-11-15  发布在  Perl
关注(0)|答案(2)|浏览(149)

我正在计算从上周五到现在已经过去的天数?
例如,今天是2022年7月19日,上周五是2022年7月15日,因此,已经过去了四天。2022年7月19日-2022年7月15日=4天
我需要这个更新每天只显示天数。
有人能帮我把这个写出来赋给一个变量吗?
提前感谢您!!!(编码新手)

tag5nh1u

tag5nh1u1#

可以使用localtime和简单的模运算:

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

((当日指数)-(星期五指数))mod(一周中的天数)

swvgeqrz

swvgeqrz2#

你可以使用Date::Calc模块。这里是一个线性版本。

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

相关问题