格式化日期时间戳

Question

我得到了perl gmtime（epoch）的输出，如下所示。

Thu Jul 23 07:19:52 2015

我想使用perl将其修改为如下所示的目录名称。什么是最好的方式？

2015072307

Answer 1

一种方法是使用Time::Piece，它位于Perl核心*。

use strict;
use warnings;
use feature 'say';
use Time::Piece;

my $t = gmtime(time);
say $t->strftime('%Y%m%d%H');

输出

2015072307

作为旁注，我喜欢http://www.strftime.net/因为我永远不会记住所有的格式。

_{*您可以使用the utility corelist这样查看某些内容是否属于核心：corelist Time::Piece - 将为我提供Time::Piece was first released with perl v5.9.5。}

Answer 2

我让它以这种方式工作。

use POSIX qw(strftime);
my $dir_name = strftime "%Y%m%d%H", gmtime ($epoch);