作业帮 > 综合 > 作业

perl 怎么把固定的时间格式转换为毫秒数

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/20 19:56:26
perl 怎么把固定的时间格式转换为毫秒数
如时间格式是:20140409,转换为1970年1月1日0点至这个时间的毫秒数.
use Date::Calc qw(Date_to_Time);

my $t1 = Date_to_Time(1970, 1, 1, 0, 0, 0); #1970-1-1 0:0:0
print "$t1\n";  # 结果为0
my $t2 = Date_to_Time(2014,4,9,0,0,0); #2014-4-9 0:0:0
print "$t2\n";

my $t = $t2 * 1000;  # 秒数*1000=毫秒数
print "$t\n";