TA貢獻1775條經驗 獲得超11個贊
1
2
3
4
5
6
7
8
9
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";
舉報
Copyright ? 2025 imooc.com All Rights Reserved | 京ICP備12003892號-11 京公網安備11010802030151號
購課補貼聯系客服咨詢優惠詳情
慕課網APP您的移動學習伙伴
掃描二維碼關注慕課網微信公眾號