从字符串中获取时间 - Perl

Question

在php中你可以做到

strtotime("+1 days");

获取第二天的机器时间。

我想和Perl一样尝试，我会做一些cron工作来执行某些方法。

我知道你可以使用模块http://search.cpan.org/~gaas/HTTP-Date-6.02/lib/HTTP/Date.pm中的str2time我似乎无法弄明白。

我尝试了以下内容，但我不确定我是否做得对

use HTTP::Date qw(str2time);
use Time::Piece;
use Time::Seconds;

my $lol = localtime();
my $time = $lol - ONE_HOUR*($lol->hour + 24);

print "Time: " . str2time($time);

Answer 1

use Time::Piece;
use Time::Seconds;

my $t1 = localtime() + ONE_DAY;

print $t1->epoch;

Answer 2

这里的工作工具是Time::Piece。

#!/usr/bin/perl
use strict;
use warnings;

use Time::Piece;

my $this_time = localtime();
print $this_time + 60*60*24,"\n";