Linux中國
Linux有問必答:Perl中本地時間和UNIX時間戳間相互轉換
Perl中轉換本地時間到UNIX時間戳
為了從日期字元串中獲得UNIX時間,可以使用Date::Parse模塊中str2time()函數。此函數可以處理多種格式,例如:
- 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 模塊支持多種語言(英語,法語,德語和義大利語)和時區。例如:
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構造任何你需要的可讀格式。這裡有一個代碼片段:
# $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";
via: http://ask.xmodulo.com/convert-local-time-unix-timestamp-perl.html
作者:Dan Nanni 譯者:VicYu/Vic020 校對:wxy
本文轉載來自 Linux 中國: https://github.com/Linux-CN/archive
對這篇文章感覺如何?
太棒了
0
不錯
0
愛死了
0
不太好
0
感覺很糟
0
More in:Linux中國
如何通過 VLC 使用字幕
使用 VLC 媒體播放器播放和管理字幕的新手指南。
Unix 桌面:在 Linux 問世之前
僅僅開源還不足以實現開放,還需開放標準和建立共識。
Valve 對於 Ubuntu 的 Snap 版本的 Steam 並不滿意:原因何在
你可能會發現,Snap 版本的 Steam 並不如你期待的那樣好,你怎麼看?
Wine 9.0 發布,實驗性地加入了 Wayland 驅動
Wine 的這個新版本正在為未來做好準備!