2 回答

TA貢獻(xiàn)1775條經(jīng)驗(yàn) 獲得超11個(gè)贊
1、time函數(shù):返回從1970年1月1日起累計(jì)的秒數(shù) 使用:my $t=time(); 2、 localtime函數(shù):獲取本地時(shí)區(qū)時(shí)間 使用:my $t=localtime(time()); 3、gmtime函數(shù): 獲取格林威治時(shí)間 使用:my $t=gmtime(time()); 得到格式化時(shí)間(以localtime函數(shù)為例): my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time()); $sec:秒$min:分$hour:小時(shí)$mday:日$mon:月$year:目前的年減去1990,不是僅將19xx年的19去掉,因此不會有Y2K的困擾。$wday:每周的日期(如Sunday是0)$yday:每年的日期(如Jan 1是0)$isdst:如果日光節(jié)約時(shí)間使用則是正值,其它為0。
4、POSIX 函數(shù) strftime() 可以將時(shí)間格式化為我們想要的格式。
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("時(shí)間日期 - $datestring\n");
# GMT 格式化時(shí)間日期 $datestring = strftime "%Y-%m-%d %H:%M:%S", gmtime; printf("時(shí)間日期 - $datestring\n"); |
得到一個(gè)小時(shí)以前的時(shí)間
perl -MPOSIX -le 'print strftime "%c", localtime(time()-3600);'
得到一天前的時(shí)間
perl -MPOSIX -le 'print strftime "%c", localtime(time()-86400);'

TA貢獻(xiàn)1797條經(jīng)驗(yàn) 獲得超6個(gè)贊
加上
use Time::HiRes qw(time);
后;
你再print time,就是會有更精確的時(shí)間。
- 2 回答
- 0 關(guān)注
- 682 瀏覽
添加回答
舉報(bào)