Perl如何将文本日期转为日期格式并找出最近日期？

架构老林

2026-8-17

Perl日期转换与最近日期查找方案

要解决这个问题，我们可以利用Perl核心模块Time::Piece处理日期解析与比较，无需额外安装第三方包。以下是具体实现：

实现步骤

引入日期处理模块：添加use Time::Piece;，该模块支持日期字符串解析、格式转换，且生成的日期对象可直接进行大小比较。
初始化变量：在循环外定义my $latest_date;，用于存储当前找到的最晚日期。
逐行处理输入：
- 去除每行末尾的换行符，避免解析错误
- 用strptime将DD/MM/YYYY格式的字符串转为日期对象，格式符%d/%m/%Y对应日/月/年
- 用eval包裹解析逻辑，捕获无效日期的错误，防止脚本崩溃
- 对比当前日期与已记录的最近日期，更新最晚日期
输出结果：循环结束后，将日期对象转回原格式输出。

完整脚本代码

#! /usr/bin/perl
use warnings;
use strict;
use Time::Piece;

my $InputFile = "path/to/file.input";
open(FH, '<', $InputFile) or die $!;

my $latest_date;

while(my $Line = <FH>) {
    chomp $Line;
    # 解析DD/MM/YYYY格式的日期，捕获解析错误
    my $date = eval { Time::Piece->strptime($Line, '%d/%m/%Y') };
    if ($@) {
        warn "无效日期格式: $Line - $@";
        next;
    }
    # 更新最近日期
    if (!defined $latest_date || $date > $latest_date) {
        $latest_date = $date;
    }
}
close(FH);

if (defined $latest_date) {
    print "最近日期: " . $latest_date->strftime('%d/%m/%Y') . "\n";
} else {
    print "文件中无有效日期\n";
}