當(dāng)Perl腳本需要處理時(shí)間信息時(shí)，可以用兩種方法來表示和處理日期和時(shí)間，每個(gè)方法都有其自身的優(yōu)點(diǎn)和缺點(diǎn)，根據(jù)您的需要我們可能還需要將一種格式轉(zhuǎn)換為另一種格式，武林技術(shù)頻道為你介紹Perl中的本地時(shí)間與UNIX時(shí)間戳間相互轉(zhuǎn)換的方法。
Perl中轉(zhuǎn)換本地時(shí)間到UNIX時(shí)間戳
為了從日期字符串中獲得UNIX時(shí)間，可以使用Date::Parse模塊中str2time()函數(shù)。此函數(shù)可以處理多種格式，例如：
Sat Mar 14 10:14:05 EDT 2015 3/14/2015 10:14:05 -0400 14/Mar/15 10:14:05 14 Mar 15 10:14:05 use Date::Parse; my $local_time = "Sat Mar 14 10:14:05 EDT 2015"; # 1426342445 will be stored in $unix_time my $unix_time = str2time($local_time);
Date:Parse 模塊支持多種語(yǔ)言（英語(yǔ)，法語(yǔ)，德語(yǔ)和意大利語(yǔ)）和時(shí)區(qū)。例如:
use Date::Parse; use Date::Language; my $lang = Date::Language->new('French'); my $unix_time = $lang->str2time("12:14:05, Ago 16, 2014 (CEST)");Perl中UNIX時(shí)間戳到易讀的日期和時(shí)間
如果你想要轉(zhuǎn)換UNIX時(shí)間戳到易讀的格式，可以使用localtime()函數(shù)，此函數(shù)可以轉(zhuǎn)換UNIX時(shí)間戳為一個(gè)9元素列表。然后你可以使用返回的list構(gòu)造任何你需要的可讀格式。這里有一個(gè)代碼片段：
# $sec, $min, $hour: 秒,分,時(shí) # $mday: 月中的某天 (0-31) # $mon: 月份，范圍 0 (一月) 至 11 (十二月) # $year: 年份，與1900年的差值(2015年為2015-1900=115) # $wday: 星期，范圍 0 (星期天) 至 6 (星期六) # $yday: 年中的某天，范圍 0 至 364 (或 365 閏年) # $isdst: 是否是夏令時(shí) my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($unix_timestamp); # necessary conversion of $mon and $year $mon += 1; $year += 1900; print "Current time: $year-$mon-$mday $hour:$min:$sec/n";
以上就是關(guān)于Perl中的本地時(shí)間與UNIX時(shí)間戳間相互轉(zhuǎn)換的方法，希望這篇文章能夠給大家?guī)硪欢ǖ膸椭蠹以趯W(xué)習(xí)的時(shí)候，一定要注意認(rèn)真操作哦。
新聞熱點(diǎn)
疑難解答
圖片精選
