Perl中處理時間的幾個函數
2 回答
繁星淼淼
TA貢獻1775條經驗 獲得超11個贊
1、time函數：返回從1970年1月1日起累計的秒數 使用：my $t=time(); 2、 localtime函數：獲取本地時區時間 使用：my $t=localtime(time()); 3、gmtime函數： 獲取格林威治時間 使用：my $t=gmtime(time()); 得到格式化時間(以localtime函數為例)： my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time()); $sec:秒$min:分$hour:小時$mday:日$mon:月$year:目前的年減去1990，不是僅將19xx年的19去掉，因此不會有Y2K的困擾。$wday:每周的日期(如Sunday是0)$yday:每年的日期(如Jan 1是0)$isdst:如果日光節約時間使用則是正值，其它為0。
4、POSIX 函數 strftime() 可以將時間格式化為我們想要的格式。
1 2 3 4 5 6 7 8 9 | #!/usr/bin/perl use POSIX qw(strftime);
$datestring = strftime "%Y-%m-%d %H:%M:%S", localtime; printf("時間日期 - $datestring\n");
# GMT 格式化時間日期 $datestring = strftime "%Y-%m-%d %H:%M:%S", gmtime; printf("時間日期 - $datestring\n"); |
得到一個小時以前的時間
perl -MPOSIX -le 'print strftime "%c", localtime(time()-3600);'
得到一天前的時間
perl -MPOSIX -le 'print strftime "%c", localtime(time()-86400);'
- 2 回答
- 0 關注
- 684 瀏覽
添加回答
舉報
0/150
提交
取消