如何用Perl v5.10.1内置模块实现UTC到本地时间的转换

刚好我碰到过类似的场景——Perl 5.10.1的最小化环境确实可能没有Time::Piece，不过咱们可以用Perl自带的POSIX和Time::Local这两个核心模块来实现，完全不需要额外安装任何东西。

先给你直接替换后的完整脚本，然后再拆解说明：

use strict;
use warnings;
use POSIX qw(strftime);
use Time::Local qw(timegm);

sub utc_to_local {
    my ($utc_ts) = @_;
    # 解析UTC时间字符串，提取时间分量
    if ($utc_ts =~ /^(\d{4})-(\d{2})-(\d{2}) (\d{2}):(\d{2}):(\d{2})$/) {
        my ($year, $mon, $mday, $hour, $min, $sec) = ($1, $2, $3, $4, $5, $6);
        # 使用timegm将UTC时间分量转为时间戳（注意参数格式要求）
        my $utc_epoch = timegm($sec, $min, $hour, $mday, $mon - 1, $year - 1900);
        # 将UTC时间戳转成本地时间分量，再格式化输出
        return strftime('%Y-%m-%d %H:%M:%S', localtime($utc_epoch));
    } else {
        die "Invalid UTC timestamp format: $utc_ts";
    }
}

# 原来的时间预处理逻辑保留
my $utc = "2020-08-18T16:28:45";
$utc =~ s/T/ /;
my $local = utc_to_local($utc);
print "UTC: $utc ** local: $local\n";

关键部分说明： #

• 时间解析：用正则表达式把UTC字符串拆成年、月、日、时、分、秒，确保格式符合预期，避免解析错误。
• UTC转时间戳：timegm是Time::Local里的核心函数，它专门处理UTC时间的分量到时间戳的转换，参数顺序是秒、分、时、日、月、年，这里要注意两个细节：
  • 月份要减1（因为它接受0-11的范围，比如8月要传7）
  • 年份要减去1900（比如2020要传120）
• 时间戳转本地时间：localtime($utc_epoch)会把UTC时间戳转换成本地时区的时间分量列表，直接传给strftime就可以格式化。
• 格式化输出：POSIX的strftime函数和Time::Piece里的用法几乎一致，直接用你原来的格式串%Y-%m-%d %H:%M:%S就能得到想要的结果。

这个脚本在Perl 5.10.1的最小化环境下可以直接运行，因为POSIX和Time::Local都是Perl的核心模块，默认就包含在安装包里，不需要额外配置。

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