我正在用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;

1.如果给定的小时、分钟、秒在舍入时间的任意一侧的$buffer分钟（默认为5分钟）内，则返回初始的($hour, $minute, $second)。
这就是它有点崩溃的地方，我需要一个时间戳来检查这个，手动检查小时是否滴答作响等将是一个痛苦。那么，我如何创建一个时间戳从一个小时，分钟和秒，当我不关心的日期？只是给予它当前日期或其他一些占位符？