You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
277 B
15 lines
277 B
#!/usr/bin/env perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
use 5.10.0;
|
|
use Time::Piece;
|
|
|
|
my $specific_time = Time::Piece->strptime('2020-11-06 20:20:01', "%Y-%m-%d %T");
|
|
say $specific_time;
|
|
|
|
my $now = localtime();
|
|
say $now->epoch;
|
|
|
|
my $hour_ago = localtime()->epoch - 3600;
|
|
say $hour_ago;
|