Perl Date::Parse解析1901-1969年日期时加100年的异常问题求助

这个问题其实是Date::Parse模块的一个已知行为（旧版本表现更明显）：当解析1901-1968区间的四位年份日期时，模块内部逻辑可能误将其识别为两位年份，自动应用了"20xx"的补全规则，导致生成的纪元时间戳直接多了100年。下面给你几个可行的解决思路，同时优化错误处理流程：

1. 手动修正解析结果（不换模块方案） #

如果暂时不想更换依赖模块，可以在解析后对时间戳做校验修正，同时完善错误判断：

use Date::Parse;

sub safe_parse_datetime {
    my ($datetime) = @_;
    my $timestamp = str2time($datetime);
    
    # 第一步：处理解析失败的情况
    return undef unless defined $timestamp;
    
    # 提取原始输入的四位年份
    if ($datetime =~ /^(\d{4})-/) {
        my $original_year = $1;
        # 计算解析后时间戳对应的年份
        my $parsed_year = (localtime($timestamp))[5] + 1900;
        
        # 校验并修正：原年份在1901-1968且解析后多了100年
        if ($original_year >= 1901 && $original_year <= 1968 && $parsed_year == $original_year + 100) {
            $timestamp -= 100 * 365.2425 * 24 * 3600; # 减去100年的近似秒数
        }
    }
    
    return $timestamp;
}

# 测试示例
my $test_date = "1955-10-26 01:21:00";
my $ts = safe_parse_datetime($test_date);
print scalar localtime($ts), "\n"; # 应输出正确的1955年日期

2. 更换更可靠的日期处理模块 #

Date::Parse的设计偏向轻量，对边缘日期场景的支持不足。推荐使用DateTime生态的模块，它对历史日期的解析精度更高，错误处理也更灵活：

use DateTime::Format::Strptime;

sub parse_datetime_with_datetime {
    my ($datetime) = @_;
    my $strp = DateTime::Format::Strptime->new(
        pattern   => '%Y-%m-%d %H:%M:%S',
        time_zone => 'local', # 可根据需求指定时区，如'UTC'
        on_error  => 'croak', # 也可设为'undef'自定义错误处理
    );
    
    eval {
        my $dt_obj = $strp->parse_datetime($datetime);
        return $dt_obj->epoch;
    };
    
    # 捕获解析异常并给出提示
    if ($@) {
        warn "解析日期失败 '$datetime': $@";
        return undef;
    }
}

# 测试示例
my $test_date = "1912-04-15 02:20:00";
my $ts = parse_datetime_with_datetime($test_date);
print scalar localtime($ts), "\n"; # 正确解析1912年日期

3. 通用错误处理优化建议 #

不管使用哪种方案，都应该包含以下关键错误处理环节：

• 优先检查解析函数的返回值是否为undef或抛出异常
• 验证解析后的时间戳对应的日期，是否与原始输入的核心信息（年份、月份等）匹配
• 对无效输入输出明确的错误提示，便于后续调试

补充：如果你的Date::Parse版本较老，尝试升级到最新版也可能直接解决这个问题——新版本对四位年份的解析逻辑做了针对性优化。

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