我需要使用 perl 将任何给定日期或日期时间转换为微秒。我尝试了以下代码，它仅适用于您运行它的当前时间。
use Time::HiRes qw(gettimeofday);
my $timestamp = int (gettimeofday * 1000);
print STDOUT "timestamp = $timestamp\n";
我想知道是否有办法在 perl 中将任何给定的日期或日期时间转换为微秒，怎么做？ 顺便说一句，我没有安装 Parse 模块。我的 perl 版本是为 i386-linux-thread-multi 构建的 v5.8.8。
最佳答案
DateTime 可以轻松做到这一点:
my $dt = DateTime->new( year => 2012, nanosecond => 4 );
print $dt->hires_epoch();
有关更多示例，请参阅 the docs on cpan
关于perl - 如何在perl中将任何日期时间转换为微秒，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/28512429/