从字符串中获取时间 - Perl

Question

在PHP中你可以做到

strtotime("+1 days");

并获得第二天的机器时间.

我想和Perl一样尝试,我将做一些cron工作来执行某些方法.

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

我尝试了以下方法,但我不确定我是否做得对

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;