perl-帮助格式化时间戳

Question

我正在使用以下时间戳格式读取日志数据:

Sat Aug 07 04:42:21 2010

我想将它转换为这样的东西:

20100807044221

在perl中执行此操作的最佳方法是什么？谢谢.

Answer 1

使用Time :: Piece.(自Perl 5.10以来的核心模块.)

#!/usr/bin/perl

use strict;
use warnings;

use Time::Piece;

my $timestamp1 = 'Sat Aug 07 04:42:21 2010';
my $time = Time::Piece->strptime($timestamp1, '%a %b %d %H:%M:%S %Y');
my $timestamp2 = $time->strftime('%Y%m%d%H%M%S');