講Perl中的本地時間與UNIX時間戳間相互轉換的方法

 　　這篇文章主要介紹了講Perl中的本地時間與UNIX時間戳間相互轉換的方法,主要用到了Perl中的Date::Parse模塊,需要的朋友可以參考下

　　當你的Perl腳本需要解決時間信息，這裡有兩種方法來表示和處理日期和時間。一種方法是易讀的時間表示(例，"Sat Mar 14 10:14:05 EDT 2015")，另外一種是使用UNIX時間戳(也叫“新紀元時間”)，這是從1970年1月1日到今所經過的時間秒數。每一種方法都有它自己的優劣勢，取決於你的需要，也許也就需要轉換一種格式到另一種。

　　Perl中轉換本地時間到UNIX時間戳

　　為了從日期字符串中獲得UNIX時間，可以使用Date::Parse模塊中str2time()函數。此函數可以處理多種格式，例如：

　　?

1 2 3 4 5 6 7 8 9 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 模塊支持多種語言(英語，法語，德語和意大利語)和時區。例如:

　　?

1 2 3 4 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時間戳到易讀的日期和時間

　　如果你想要轉換UNIX時間戳到易讀的格式，可以使用localtime()函數，此函數可以轉換UNIX時間戳為一個9元素列表。然後你可以使用返回的list構造任何你需要的可讀格式。這裡有一個代碼片段：

　　?

1 2 3 4 5 6 7 8 9 10 11 12 # $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:$secn";