Question

我希望将时间显示到毫秒。我的代码给出了错误。任何其他方法也欢迎。

use Time::HiRes qw/gettimeofday/;
use Time::Format qw/%time/;

$s1=gettimeofday;
print qq|$time{'yyyymmdd hh:mm:ss.mmm', $s1}\n|;

错误：

syntax error at (eval 2) line 31, near "->import qw(langinfo)"
        ...propagated at C:/Perl64/lib/Time/Format.pm line 77, <DATA> chunk 1.

Answer 1

更新你的时间::格式。您使用的版本是错误的。这个问题在七年前得到了解决。（在1.07，2008年3月31日）。

或使用以下内容：

use POSIX       qw( strftime );
use Time::HiRes qw( gettimeofday );

my ($secs, $microsecs) = gettimeofday();
strftime("%Y%m%d %H:%M:%S", localtime($secs)) . sprintf(".%03d", $microsecs/1000)

用perl显示以ms为单位的时间

1 个答案: