如何根据指定年份的日历周生成对应的Unix时间戳？

问题背景 #

我需要将YYYY-MM-DD格式的日期按ISO日历周（通过strftime('%Y-%V')获取）分组，之后需要每个日历周起始时刻的Unix时间戳用于后续操作，但拿到YYYY-VV格式的日历周后，不知道如何转换为时间戳。

解决方案一：用POSIX标准模块实现（无需第三方依赖） #

利用POSIX的strptime解析ISO周格式字符串，再用mktime生成时间戳。ISO周的起始为周一，所以拼接YYYY-VV-1（1代表周一）即可定位到周起始日，再手动设置时分秒为0：

use POSIX qw(strptime mktime);

# 示例：已获取的ISO日历周，格式为"YYYY-VV"
my $iso_week = "2024-35";
# 拼接为该周周一的ISO格式字符串
my $week_start = "$iso_week-1";

# 解析字符串为时间组件数组
my @time_components = strptime($week_start, "%G-%V-%u");
# 重置时分秒为0，确保是当天起始时刻
$time_components[0] = 0; # 秒
$time_components[1] = 0; # 分
$time_components[2] = 0; # 时

# 生成Unix时间戳
my $timestamp = mktime(@time_components);
print "周起始时间戳：$timestamp\n";

解决方案二：用DateTime模块（更易读，需安装第三方模块） #

如果可以安装CPAN模块，DateTime对ISO周的支持更直观，能避免手动处理时间组件的繁琐：

use DateTime;

my $iso_week = "2024-35";
my ($year, $week_num) = split /-/, $iso_week;

# 创建对应ISO周周一0点的DateTime对象
my $dt = DateTime->new(
    year      => $year,
    week_year => $year,
    week      => $week_num,
    day       => 1,        # 1代表周一，ISO周的第一天为周一
    hour      => 0,
    minute    => 0,
    second    => 0,
    time_zone => 'local',  # 可根据需求改为'UTC'等时区
);

# 转换为Unix时间戳
my $timestamp = $dt->epoch;
print "周起始时间戳：$timestamp\n";

关键注意点 #

• ISO周年份准确性：使用strftime('%G-%V', localtime)而非%Y-%V获取ISO周，因为部分跨年周（比如年初第一周）的%Y会和ISO周实际年份不符，%G才是ISO周对应的正确年份。
• 时区一致性：处理时间时确保时区统一，若涉及UTC时间，需在解析和生成时间戳时明确指定时区，避免偏移错误。

内容的提问来源于stack exchange，提问作者Boris Däppen