3

我希望 Perl 以下列格式显示当前日期和时间：

2010-02-11 13:12:34.87876

我写了这段代码：

use Time::localtime;
my $tm = localtime;
printf("It is now %04d-%02d-%02d %02d:%02d:%02d\n", $tm->year+1900,
    ($tm->mon)+1, $tm->mday, $tm->hour, $tm->min, $tm->sec);

并得到：

2011-11-17 17:22:59

我不知道如何在输出中获得剩余的.87876。有人可以帮我吗？

4

3 回答 3

11 
use DateTime::HiRes qw();
DateTime::HiRes->now(time_zone => 'local')->strftime('%F %T.%5N')
# returns '2011-11-17 17:42:42.21719'
于 2011-11-17T17:42:57.067 回答
8

使用DateTime和Time::HiRes：

use DateTime;
use Time::HiRes;

my $dt = DateTime->from_epoch(
    epoch     => Time::HiRes::time,
    time_zone => 'local',
);
print $dt->strftime("%Y-%m-%d %H:%M:%S.%5N"); # 2011-11-17 21:03:46.74562

这正是DateTime::HiRes创建DateTime具有亚秒级分辨率的对象的方式。

于 2011-11-17T17:52:43.937 回答
1

您可能正在寻找%5N. 请参阅日期时间::格式

于 2011-11-17T17:46:12.740 回答