在毫秒中將毫秒轉換爲日期時間

Question

我有一個具有毫秒值的文件，例如「1366535578」，我需要將其轉換爲日期時間。在python我可以做如下

import datetime 
print datetime.datetime.fromtimestamp(1366535578) 

如何可以把它用Perl來實現，使其顯示格式爲「20130421181258」

任何幫助表示讚賞。

Answer 1

毫秒實際上表示時間，而不是時間。

您可以使用此：

use POSIX qw(strftime); 
my $formatted = strftime("%Y%m%d%H%M%S", localtime($ts/1000)); 

字符串strftime是您毫秒的字符串。

這會給你YYYY-mm-dd hh:mm:ss的格式，如果你希望你可以刪除hiphens來獲得你的格式或安排它到達你的格式。

注意：刪除格式字符串中的hiphens和冒號。

Answer 2

my @date = localtime(time); 
$date[5] += 1900; 
$date[4] += 1; 
$date[2] = '0'.$date[2] if ($date[2] < 10); 
$date[1] = '0'.$date[1] if ($date[1] < 10); 
$date[4] = '0'.$date[4] if ($date[4] < 10); 
$date[3] = '0'.$date[3] if ($date[3] < 10); 
print join(@date,''); 

http://perldoc.perl.org/functions/localtime.html

Answer 3

核心Time::Piece模塊將爲您做到這一點。它覆蓋內置localtime功能，使得它具有strftime方法：

use Time::Piece; 

print localtime(1366535578)->strftime('%Y%m%d%H%M%S'); 

輸出

20130421101258