如何使用Perl将日期转换为Unix时间戳

Question

我正在尝试使用Perl将日期转换为Unix时间戳。我刚开始学习Perl。

日期以2/25/2014格式存储。

我尝试使用str2time()

Answer 1

您应该使用Time::Piece模块。它多年来一直是核心模块，不需要安装。

use strict;
use warnings;

use Time::Piece;

print Time::Piece->strptime('2/25/2014', '%m/%d/%Y')->epoch;

<强>输出

1393286400

Answer 2

最简单的方法是使用Time::Piece将您的时间转换为您可以使用的格式：

use strict;
use warnings;
use feature qw(say);

use Time::Piece;

my $time_stamp = Time::Piece->strptime('2/25/2014', '%m/%d/%Y');

现在，$time_stamp包含我的时间的结构。我可以用它来做这样的事情：

say "The year is " . $time_stamp->year;
say "This month is called " . $time_stamp->fullmonth;
say "It is month number " . $time_stamp->month . " of the year";

您还可以一起添加和减去这些时间，使用Time::Seconds与Time::Piece一起查找从今天起30天内的内容。