2012-08-06 265 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