如何以给定格式显示当前日期时间,包括Perl中的微秒？

发布时间：2020-12-16 06:10:54 所属栏目：大数据来源：网络整理

导读：我希望Perl以下列格式显示当前日期和时间： 2010-02-11 13:12:34.87876 我写了这段代码： use Time::localtime;my $tm = localtime;printf("It is now %04d-%02d-%02d %02d:%02d:%02dn",$tm-year+1900,($tm-mon)+1,$tm-mday,$tm-hour,$tm-min,$tm-sec); 得

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

2010-02-11 13:12:34.87876

我写了这段代码：

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

得到了：

2011-11-17 17:22:59

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

解决方法

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

> DateTime::HiRes
> strftime in DateTime

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!