一. Perl時間的表示函數

1. 表示日期的方式多種多樣:
"18Jan1973";
"18/01/1973";
"01/18/1973";
"Jan181973";
"18-01-73";
"18-01-1973";
"01/73".
其中一些格式意思不清(如"01-06-1973",是表示6月1日呢,還是表示1月6日呢?)
如果不規定日期的表示形式,是很難處理的.

想理解"18Jan1973"和"6Sep1950"之間的區別,需要把它們轉換為數字表示.
Unix內部運用紀元秒表示時間。
日期和時間加起來表示:
自格林威志時間1970年1月1日午夜時分(紀元)到當前時刻之間的秒數。
如, "18 Jan 1973:(假定為午夜時分)的紀元秒為96163200。

2. 在該系統中，午夜表示一天的開始時刻。

讓我們通過Perl中提供的gmtime函數生成一個日期。
給定一個用以表示自從紀元以來的秒數的整數, 通過gmtime函數可以計算出代表相應的日期和時刻,
例一:
調用gmtime()函數，你會得到一系列值的列表,包括時，分，秒,日期，月份，年份等.

#!/usr/bin/perluse Time::localtime;$t_num = 96163200;$tm = scalar(gmtime($t_num));print $tm,"/n";

輸出:
Thu Jan 18 00:00:00 1973

例二:以","為分隔符輸出時間
print join(",", gmtime(96163200));

0,0,0,18,0,73,4,17,0
語義:
前3個數: 0,0,0, 分別表示秒, 分, 時. 小時是從0-23，故下午是12時往后.
第4個數: 18, 表示該月中的天數(本例中為18號)。
第5個數: 0 , 表示月份，從0開始(代表1月份)。
之所以從0開始，是因為月份對應著月份數組的下標：

@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);$month = @months[(gmtime($t_num))[4]];print "MONTH: ",$month,"/n";

第6個數: 73, 年份, (本例中為73)的表示有點特殊。它并不是年份的最后兩位數字。
它表示從1900年開始的年份。
為什么要這樣表示呢?
這是因為C語言就是這樣處理的。
Perl試圖使得其庫和系統調用盡量接近操作系統的處理方式。
所以，如果你想輸出4位數的年份，表示如下：
$year=(gmtime(96163200))[5]+1900;

如果你不了解這種處理方式，就會制造出Y2K疑問，你也許會這樣寫：
$year="19".(gmtime(96163200))[5]; #出錯！2000年將變為19100
第7個數: 4 , 表示一星期中的第幾天(星期日為0).
第8個數: 17, 一年中的第幾天(0表示一年中的第一天).
第9個數: 0 , 能不能采用夏時制(0表示不采用，正數表示采用，負數表示不可知).

3. Perl中的time()函數返回以紀元秒形式表示的當前日期和時間。

如果你打算把它轉換為字符串，就可運用gmtime()和localtime()函數：

$now=localtime(time());($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)=localtime(time());