Perl如何忽略时间戳范围中超过2小时的文件

你现有代码存在3个核心错误：

• 时间计算逻辑错误：将格式化后的时间字符串直接做数值加2，完全无法实现加2小时的效果，且跨天/跨月场景下用字符串比较时间会直接返回错误结果
• 对象调用错误：$stat->$start是非法的方法调用写法，File::stat返回的对象存储的是Unix时间戳数值，无法和格式化后的字符串直接比较
• 判断逻辑混乱：没有统一时间比较基准，保留/跳过文件的条件完全写反

实现思路 #

所有时间比较统一转换为Unix时间戳（秒级整型值）计算，2小时对应固定秒数2*60*60=7200，无需转成格式化字符串做比较，从根源避免跨天、跨月、跨年的时间判断误差。
注意区分判断基准：如果按文件名中携带的时间判断，不需要调用File::stat取文件属性；如果按文件本身的修改时间判断，可以跳过文件名解析步骤。

可直接运行的代码 #

use strict;
use warnings;
use Time::Piece; # Perl核心自带模块，无需额外安装
use File::stat;

# 时间差阈值：2小时，转换为秒数
my $time_threshold = 2 * 60 * 60;
my $current_time = time(); # 获取当前时间的Unix时间戳

# 遍历文件时替换为你的实际文件路径/文件名
my $file = "May 26 20:30 filename.csv";

# 从文件名提取并解析时间（匹配你给出的「May 26 20:30 filename.csv」格式）
my ($time_str) = $file =~ /^(\w{3}\s+\d{1,2}\s+\d{2}:\d{2})/;
# 补全当前年份，跨年场景可按需调整判断逻辑
$time_str .= " " . localtime->year;
my $file_time = Time::Piece->strptime($time_str, "%b %d %H:%M %Y")->epoch;

# --- 如果要按文件实际修改时间判断，注释掉上面的文件名解析代码，启用下面这行 ---
# my $file_time = stat($file)->mtime;

# 时间差判断：差值绝对值在阈值内则保留，否则跳过
if (abs($current_time - $file_time) <= $time_threshold) {
    # 此处写保留文件的处理逻辑
    print "保留文件: $file\n";
} else {
    print "跳过文件: $file，时间差超过2小时\n";
    next; # 遍历文件场景下直接跳过不符合要求的文件
}

注意点 #

• 如果存在跨年处理场景（比如1月1日处理上一年12月31日的文件），可以增加一层判断：如果解析出的文件时间比当前时间晚超过1天，就将解析用的年份减1，避免时间判断偏差
• 禁止直接用格式化后的时间字符串（比如%m%d %H:%M格式）比较大小，例如1231 23:59和0101 00:01的字符串比较结果和实际时间先后顺序完全相反
• 原代码使用的UnixDate是Date::Manip模块的函数，不属于Perl核心自带模块，使用前需要额外安装，常规时间处理优先用核心自带的Time::Piece，无额外依赖

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