2012-08-06 276 views
-1

我的日期时间显示为06 August 2012 21:02:00,需要使用Perl将其转换为Unix时间戳。如何使用Perl将日期时间转换为Unix时间戳

+10

不要紧,对我来说,如果它是基本的。对我来说重要的是,OP没有显示任何代码来证明他已经尝试了什么,没有解释这种尝试失败的原因,没有显示任何研究,没有详细说明他已经对如何去做的任何想法首先解决它自己,并且基本上没有努力。基本没问题。但这不是一个代码写作服务,需要一点点努力才能表明我们没有受到如此待遇。 – DavidO 2012-08-06 21:36:45

+0

@pavel - 基本问题不符合SO规则。 – DVK 2012-08-07 00:56:50

+0

重复? http://stackoverflow.com/questions/95492/how-do-i-convert-a-date-time-to-epoch-time-aka-unix-time-seconds-since-1970?rq=1 – DVK 2012-08-07 00:58:07

回答

6
use Date::Parse; 
print str2time('06 August 2012 21:02:00'); 
6

如果你想留在核心模块(可用在Perl 5.10)使用Time::Piece

use Time::Piece; 
my $t = Time::Piece->strptime(shift,"%d %B %Y %H:%M:%S"); 
print $t->epoch, "\n"; 

./mypl "06 August 2012 21:02:00" 
1344286920