Perl中UTC转指定站点时区时间的异常问题排查

问题根源 #

你的脚本核心问题出在时区转换逻辑错误：

• DateTime->from_epoch生成对象时默认使用系统时区（你的环境为UTC），调用set_time_zone仅修改对象的时区属性，但epoch时间戳是UTC绝对时间，不会随时区变化。
• 最后用time2str('%Y-%m-%d %H:%M:%S', $site_time)输出时，time2str默认采用系统本地时区（UTC），因此输出仍为UTC时间，未体现伦敦夏令时（BST，UTC+1）的偏移。

另外注释里标注的GMT+0不准确，伦敦夏季实行夏令时，实际时区为UTC+1，这也是你预期输出比UTC早1小时的原因。

修复方案 #

以下两种方案任选其一即可：

方案1：直接用DateTime对象格式化目标时区时间 #

修改convertSiteTime函数，返回格式化后的目标时区时间字符串，而非epoch：

sub convertSiteTime {
    my $id = shift;
    my $time_str = shift;
    my $epoch_time = str2time($time_str);

    if (!$epoch_time) {
        print "$time_str is not a valid date. Please provide a valid date.\n";
        exit(1);
    }
    # 明确指定原始时间为UTC时区
    my $dt = DateTime->from_epoch(epoch => $epoch_time, time_zone => 'UTC');
    # 转换到目标站点时区
    $dt->set_time_zone($time_zone_hash{$id});

    # 返回格式化后的目标时区时间
    return $dt->strftime('%Y-%m-%d %H:%M:%S');
}

同时调整主程序的调用逻辑：

my $site_time = convertSiteTime($site_id, $utc_now);
print "site_time=$site_time\n";

方案2：给Date::Format指定目标时区 #

若坚持返回epoch，需在调用time2str时指定目标时区：

# 修改主程序的输出语句
print time2str('%Y-%m-%d %H:%M:%S', $site_time, $time_zone_hash{$site_id})."\n";

同时修正convertSiteTime中的DateTime初始化，明确原始时间为UTC：

my $dt = DateTime->from_epoch(epoch => $epoch_time, time_zone => 'UTC');

修复后验证 #

运行修改后的脚本，输出将符合预期：

UTC:2023-07-20 09:19:16
site_time=2023-07-20 10:19:16
2023-07-20 10:19:16

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