Perl中如何生成无日期时间戳并进行时间运算？

我不熟悉Perl语言及其日期时间函数，目前需要在Perl中处理时间运算（可能需要用到时间戳）。我编写了一个接收5个整数参数的函数：

sub calculateEndTime {
    my ($hour, $minute, $second, $roundingInterval ,$buffer)
    ...
}

需求： #

1. 将分钟数四舍五入到最近的$roundingInterval（例如15代表一刻钟），我已实现如下代码：

my $nearestInterval = round($minute / $roundingInterval) * $roundingInterval;
$hour = $hour + 1 if $nearestInterval == 60; #That's gonna screw up future calculations
$nearestInterval = 0 if $nearestInterval == 60;

2. 若给定的时、分、秒在四舍五入后的时间的$buffer分钟（默认5分钟）范围内，则返回原始的($hour, $minute, $second)。

当前疑问： #

手动判断时间是否跨小时等情况太繁琐，需要生成时间戳来完成判断，但我不关心日期，该如何仅用时、分、秒生成时间戳？是否可以使用当前日期或其他占位符？

1. 用固定日期生成时间戳 #

完全可以用固定占位日期（比如Unix纪元起始日1970-01-01）拼接时、分、秒生成时间戳——因为你只需要比较两个时间的相对差值，固定日期的偏移会被抵消，不会影响结果。

推荐使用Perl的DateTime模块（Perl生态中处理时间的标准工具），它能自动处理跨小时、跨天的边界情况，避免手动逻辑出错。没安装的话用cpanm DateTime即可完成安装。

2. 完整函数实现 #

以下是整合了时间戳比较、自动处理边界的代码，替代你手动判断的繁琐逻辑：

use DateTime;
use POSIX qw(round); # 确保round函数可用

sub calculateEndTime {
    my ($hour, $minute, $second, $roundingInterval, $buffer) = @_;
    $buffer //= 5; # 设置默认缓冲5分钟

    # 创建原始时间的DateTime对象（固定日期避免时区/日期干扰）
    my $original_dt = DateTime->new(
        year      => 1970,
        month     => 1,
        day       => 1,
        hour      => $hour,
        minute    => $minute,
        second    => $second,
        time_zone => 'UTC',
    );

    # 计算四舍五入后的分钟，DateTime自动处理溢出（比如60分钟自动进1小时）
    my $rounded_minute = round($minute / $roundingInterval) * $roundingInterval;
    my $rounded_dt = $original_dt->clone()->set(minute => $rounded_minute);

    # 计算时间差（自动处理跨小时/跨天情况）
    my $diff_minutes = abs($original_dt->delta_ms($rounded_dt)->in_units('minutes'));

    # 判断是否在缓冲范围内并返回结果
    return $diff_minutes <= $buffer 
        ? ($hour, $minute, $second) 
        : ($rounded_dt->hour, $rounded_dt->minute, $rounded_dt->second);
}

备选方案：用Time::Piece生成时间戳 #

如果不想用DateTime，也可以用轻量的Time::Piece模块生成epoch时间戳来比较：

use Time::Piece;

sub calculateEndTime {
    my ($hour, $minute, $second, $roundingInterval, $buffer) = @_;
    $buffer //= 5;

    # 生成原始时间戳
    my $original_epoch = Time::Piece->strptime(
        "1970-01-01 $hour:$minute:$second", 
        "%Y-%m-%d %H:%M:%S"
    )->epoch;

    # 生成四舍五入后的时间戳（strptime自动处理分钟溢出）
    my $rounded_minute = round($minute / $roundingInterval) * $roundingInterval;
    my $rounded_epoch = Time::Piece->strptime(
        "1970-01-01 $hour:$rounded_minute:$second", 
        "%Y-%m-%d %H:%M:%S"
    )->epoch;

    # 计算分钟差
    my $diff_minutes = abs($original_epoch - $rounded_epoch) / 60;

    return $diff_minutes <= $buffer 
        ? ($hour, $minute, $second) 
        : (localtime($rounded_epoch)->hour, localtime($rounded_epoch)->minute, $second);
}

不过DateTime在时间调整和差值计算上更直观，优先推荐使用。

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