使用Perl减去15分钟

Question

我认为这将非常简单,但我现在真的没有选择.我想从给定的时间减去15分钟.

示例我的时间是15:04我想将15分钟减去14:49.我在互联网上搜索过解决方案,但没有可以帮助我的perl模块.

Answer 1

你可以使用DateTime:

my $dt = DateTime->new(
    year   => 1,
    month  => 1,
    day    => 1,
    hour   => 15, 
    minute => 4,
);  

$dt->subtract(minutes => 15);
printf "%d:%d\n", $dt->hour, $dt->minute; # prints 14:49

Answer 2

这一切都取决于你的时间存储方式.我更喜欢使用内置的time_t返回time.

my $now = time();
my $before1 = $now - (15*60);      # 15 minutes ago
my $before2 = $now - (3*60*60);    # 3 hours ago
my $before3 = $now - (2*24*60*60); # 2 days ago

对于输出我使用POSIX模块

print POSIX::strftime( '%Y-%m-%d %T', localtime($before1) );