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

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)