如何将时间戳以毫秒为单位转换为时间?

时间:2011-07-05 12:22:40

标签: perl

如何将时间戳(以毫秒为单位)转换为“13:52:11.12”等时间格式?

2 个答案:

答案 0 :(得分:5)

use DateTime;
my $t = time() * 1000 + 400;

print DateTime->from_epoch(epoch => $t/1000)->format_cldr('H:m:s.S');
# 13:22:47.4

答案 1 :(得分:1)

divide by 1000 to get seconds.
Divide by 86400 to get days
Divide remainder of above division by 3600 to get hours
Divide remainder by 60 to get minutes, remainder is seconds