我需要使用Perl将任何给定的日期或日期时间转换为微秒。我尝试了以下代码,它只适用于您运行它的当前时间。
我想知道如何在Perl中将任何给定的日期或日期时间转换为微秒。我的Perl版本是v5.8.8,构建于i386-linux-thread-multi平台。另外,我没有安装Parse模块。
use Time::HiRes qw(gettimeofday);
my $timestamp = int (gettimeofday * 1000);
print STDOUT "timestamp = $timestamp\n";
我想知道如何在Perl中将任何给定的日期或日期时间转换为微秒。我的Perl版本是v5.8.8,构建于i386-linux-thread-multi平台。另外,我没有安装Parse模块。
strptime
)转换为->epoch
后执行你的 1000 * 操作。 - Ashley