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

Question

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

Answer 1

123456789use Date::Calc qw(Date_to_Time); my $t1 = Date_to_Time(1970, 1, 1, 0, 0, 0); #1970-1-1 0:0:0print "$t1\n";  # 结果为0my $t2 = Date_to_Time(2014,4,9,0,0,0); #2014-4-9 0:0:0print "$t2\n"; my $t = $t2 * 1000;  # 秒数*1000=毫秒数print "$t\n";