如何用Perl变量计算自上周五起已过去的天数？

对于新手来说，用Perl的DateTime模块处理日期计算会更直观、不易出错，以下是实现代码：

步骤1：安装DateTime模块（如果未安装） #

如果你的Perl环境还没有DateTime模块，可以通过以下方式安装：

• 使用cpanm：

  cpanm DateTime
  

• 或者用系统包管理器（以Debian/Ubuntu为例）：

  sudo apt install libdatetime-perl
  

步骤2：代码实现 #

use strict;
use warnings;
use DateTime;

# 获取本地时区的当前日期
my $today = DateTime->now(time_zone => 'local');

# 计算上一个周五的日期
my $last_friday = $today->clone();
my $current_weekday = $today->day_of_week(); # 1=周一，5=周五，6=周六，7=周日

if ($current_weekday == 5) {
    # 今天就是周五，上周五即为当天
    $last_friday->subtract(days => 0);
} elsif ($current_weekday > 5) {
    # 周六或周日，减去对应天数回到上周五
    $last_friday->subtract(days => $current_weekday - 5);
} else {
    # 周一到周四，减去（当前星期数+2）天得到上周五
    $last_friday->subtract(days => $current_weekday + 2);
}

# 计算并存储已过去的天数
my $days_passed = $today->delta_days($last_friday)->in_units('days');

# 仅输出天数数值（每日运行会自动更新）
print $days_passed, "\n";

代码说明 #

• use strict; use warnings;：强制规范代码写法，提前发现潜在错误，新手建议始终开启。
• DateTime->now(time_zone => 'local')：获取当前本地时区的日期时间，避免时区偏差。
• 日期计算逻辑：根据今天的星期数，精准定位上一个周五的日期，确保每日运行时都能得到正确的上周五日期。
• delta_days->in_units('days')：计算两个日期之间的天数差，最终结果存储在$days_passed变量中，直接使用这个变量即可获取你需要的数值。

内容的提问来源于stack exchange，提问作者MEDR