получить время из строки - 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; 

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";