當(dāng)你的Perl腳本需要解決時(shí)間信息，這里有兩種方法來(lái)表示和處理日期和時(shí)間。一種方法是易讀的時(shí)間表示（例，"Sat Mar 14 10:14:05 EDT 2015"），另外一種是使用UNIX時(shí)間戳（也叫“新紀(jì)元時(shí)間”），這是從1970年1月1日到今所經(jīng)過(guò)的時(shí)間秒數(shù)。每一種方法都有它自己的優(yōu)劣勢(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";

版權(quán)聲明：本站文章來(lái)源標(biāo)注為YINGSOO的內(nèi)容版權(quán)均為本站所有，歡迎引用、轉(zhuǎn)載，請(qǐng)保持原文完整并注明來(lái)源及原文鏈接。禁止復(fù)制或仿造本網(wǎng)站，禁止在非maisonbaluchon.cn所屬的服務(wù)器上建立鏡像，否則將依法追究法律責(zé)任。本站部分內(nèi)容來(lái)源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來(lái)，僅供學(xué)習(xí)參考，不代表本站立場(chǎng)，如有內(nèi)容涉嫌侵權(quán)，請(qǐng)聯(lián)系alex-e#qq.com處理。