perl 获取毫秒级时间戳

在Perl中获取毫秒级时间戳，可以使用Time::HiRes模块中的gettimeofday函数。

以下是示例代码：

use Time::HiRes qw(gettimeofday);

my ($seconds, $microseconds) = gettimeofday;
my $timestamp = $seconds * 1000 + int($microseconds / 1000);

print "毫秒级时间戳: $timestamp\n";

通过调用gettimeofday函数获取当前时间的秒数和微秒数，然后将秒数乘以1000并加上微秒数除以1000后取整的结果，即可得到毫秒级时间戳。