perl獲得當期日期和時間

1、erl獲適合期的日期和時間1.使用POSIX模塊perl-eusePOSIX;printstrftime(%Y-%m-%d%H:%M:%Sn,localtime)若是有時差，將時差時間加到localtime后邊。如：我現(xiàn)在使用的主機是dreamehost的主機，當前時區(qū)是-700，而中國的時區(qū)是+800，相差15小時，為了讓同步程序的時間正常，需要將系統(tǒng)時間向后調(diào)整15小時。時差調(diào)整為時差*3600。perl-eusePOSIX;printstrftime(”%Y%m%d%H:%M:%S”,localtime(time+15*3600)一個perl的腳本#!/usr/bin/perlusest

2、rict;usePOSIXqw(strftime);my$week=strftime%u,localtime;my$date=strftime%Y-%m-%d,localtime;print$week,$date;#!/usr/bin/perl-wusestrict;usePOSIXqw(strftime);my$datetime=strftime(%Y-%m-%d%H:%M:%Sn,localtime(time);print$datetime;printstrftime(%Y%m%d,localtime);輸出結果2011-03-1516:14:46201103152.使用HTTP:Date

3、模塊perl-euseHTTP:Date;printHTTP:Date:time2iso(time);若是有時差，將時差時間加到time后邊。時差調(diào)整為時差*3600。perl-euseHTTP:Date;printHTTP:Date:time2iso(time+15*3600);3.直接調(diào)用localtime函數(shù)perl-e($sec,$min,$hour,$mday,$mon,$year)=localtime(time);$mon+;$mon=”0$mon”if($mon10);$mday=”0$mday”if($mday10);$year+=1900;print“$-$yearmon-$

4、mday”;函數(shù)strftime()的操作有些近似于sprintf()：鑒別以百分號(%)開始的格式命令會集，格式化輸出結果放在一個字符串中。格式化命令說明串strDest中各種日期和時間信息的確切表示方法。格式串中的其他字符原樣放進串中。格式命令列在下面，它們是區(qū)分大小寫的。%a星期幾的簡寫%A星期幾的全稱%b月分的簡寫%B月份的全稱%c標準的日期的時間串%C年份的后兩位數(shù)字%d十進制表示的每個月的第幾天%D月/天/年%e在兩字符域中，十進制表示的每個月的第幾天%F年-月-日%g年份的后兩位數(shù)字，使用基于周的年%G年分，使用基于周的年%h簡寫的月份名%H24小時制的小時%I12小時制的小時%j十進制表示的每年的第幾天%m十進制表示的月份%M十時制表示的分鐘數(shù)%n新行符%p當?shù)氐腁M或PM的等價顯示%r12小時的時間%R顯示小時和分鐘：hh:mm%S十進制的秒數(shù)%t水平制表符%T顯示時分秒：hh:mm:ss%u每周的第幾天，星期一為第一天（值從0到6，星期一為0）%U第年的第幾周，把星期日做為第一天（值從0到）%V每年的第幾周，使用基于周的年%w十進制表示的星期幾（值從0到6，星期天為0）%W每年的第幾周，把星期一做為第一天（值從0到）%x標準