如何在不安装任何额外软件包的情况下在 Perl 中获取以毫秒为单位的时间？
我正在运行 Linux。
【问题讨论】：
date +%N 给你纳秒......你可以从那里工作吗？ %s 给出了 1970 年的秒数...
Time::HiRes？
date +%N 适用于 Linux 但不适用于 AIX...（悲伤的一天）
标签： linux perl time package milliseconds
Time::HiRes 自 Perl 5.7.3 以来一直是核心的一部分。要检查它的可用性，请检查 Perl 版本 perl -v，或尝试将其与 perl -e 'use Time::HiRes;' 一起使用，两者都可以从命令行中使用。
示例用法：
use Time::HiRes qw/ time sleep /;
my $start = time;
sleep rand(10)/3;
my $end = time;
print 'Slept for ', ( $end - $start ) , "\n";
要基于 Konerak 的评论，如果它不存在或无法使用，请通过反引号使用本机 Linux 命令：
sub time_since_epoch { return `date +%s.%N` }
print time_since_epoch;
【讨论】：
-M 标志，因为我不想将提问者与语法混淆（尽管使用 1 而不是 '' 是一个漂亮的小提示 :)。