問題: 在Perl語言中,我需要轉換易讀的日期和時間到對應的UNIX時間戳,反之亦然。你可以給我一些將日期及時間轉換到UNIX時間戳的Perl代碼例子嗎?或者相反,轉換UNIX時間戳到可讀的日期和時間。
當你的Perl腳本需要解決時間信息,這裡有兩種方法來表示和處理日期和時間。一種方法是易讀的時間表示(例,"Sat Mar 14 10:14:05 EDT 2015"),另外一種是使用UNIX時間戳(也叫“新紀元時間”),這是從1970年1月1日到今所經過的時間秒數。每一種方法都有它自己的優劣勢,取決於你的需要,也許也就需要轉換一種格式到另一種。
為了從日期字符串中獲得UNIX時間,可以使用Date::Parse模塊中str2time()函數。此函數可以處理多種格式,例如:
useDate::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 模塊支持多種語言(英語,法語,德語和意大利語)和時區。例如:
useDate::Parse;
useDate::Language;
my $lang =Date::Language->new('French');
my $unix_time = $lang->str2time("12:14:05, Ago 16, 2014 (CEST)");
如果你想要轉換UNIX時間戳到易讀的格式,可以使用localtime()函數,此函數可以轉換UNIX時間戳為一個9元素列表。然後你可以使用返回的list構造任何你需要的可讀格式。這裡有一個代碼片段:
# $sec, $min, $hour: 秒,分,時
# $mday: 月中的某天 (0-31)
# $mon: 月份,范圍 0 (一月) 至 11 (十二月)
# $year: 年份,與1900年的差值(2015年為2015-1900=115)
# $wday: 星期,范圍 0 (星期天) 至 6 (星期六)
# $yday: 年中的某天,范圍 0 至 364 (或 365 閏年)
# $isdst: 是否是夏令時
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";