Perl如何取得当前日期

ianywhere

想取得当前日期,但是下面这个代码返回的结果很奇怪,请问各位大侠有什么建议?谢谢

($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst) = gmtime();
print "gmtime() 19$year-$mon-$mday\n";

兰花仙子

1. sub getTime
   
2. {
   
3.     my $time = shift || time();
   
4.     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
   
5. 
   
6.     $year += 1900;
   
7.     $mon ++;
   
8. 
   
9.     $min  = '0'.$min  if length($min)  < 2;
   
10.     $sec  = '0'.$sec  if length($sec)  < 2;
    
11.     $mon  = '0'.$mon  if length($mon)  < 2;
    
12.     $mday = '0'.$mday if length($mday) < 2;
    
13.     $hour = '0'.$hour if length($hour) < 2;
    
14.    
    
15.     my $weekday = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday];
    
16. 
    
17.     return { 'second' => $sec,
    
18.              'minute' => $min,
    
19.              'hour'   => $hour,
    
20.              'day'    => $mday,
    
21.              'month'  => $mon,
    
22.              'year'   => $year,
    
23.              'weekNo' => $wday,
    
24.              'wday'   => $weekday,
    
25.              'yday'   => $yday,
    
26.              'date'   => "$year-$mon-$mday"
    
27.           };
    
28. }

复制代码

my $date = getTime();  
my $month = $date->{month};#获取月
my $day = $date->{day};#获取日
my $year = $date->{year};#获取年
my $date = $date->{date};#获取xxxx-xx-xx这样的日期
my $weekday = $date->{wday};#获取星期

这是偶自己写的一个函数，希望对你有用。

ulmer

原帖由 ianywhere 于 2006-8-31 22:22 发表
想取得当前日期,但是下面这个代码返回的结果很奇怪,请问各位大侠有什么建议?谢谢

($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst) = gmtime();
print "gmtime() 19$year-$mon-$mday\n";

hi,

gmtime() returns standard Greenwich time zone (i.e.: London Time)
localtime returns your local time zone (i.e: Beijing Time)
$year += 1900; # gmtime(), localtime() returns current year 106
$mon +=1;    # gmtime(), localtime counts month from 0 to 11

read more about date+time under
>perldoc -f gmtime
>perldoc -f localtime

perl -le 'print scalar locatime;'
perl -le 'print join "\n", gmtime;'
perl -le '$i=0;for(localtime){print "$i. $_"; $i++};'
perl -le '($d,$m,$y)=(localtime)[3..5]; print $y+1900,"-",$m+1,"-",$d;'

regarsd, ulmer

ianywhere

多谢,多谢!!!

ianywhere

另外一个问题,有没有办法取得昨天的日期呢?谢谢

兰花仙子

原帖由 ianywhere 于 2006-9-1 07:53 发表
另外一个问题,有没有办法取得昨天的日期呢?谢谢

这样调用偶的那个函数即可：
my $yesterday = getTime(time() - 86400);

ianywhere

好了.

多谢

523066680

回复 3# ulmer


    翻了翻这个老帖

my $date = getTime();  
my $month = $date->{month};#获取月
my $day = $date->{day};#获取日
my $year = $date->{year};#获取年
my $date = $date->{date};#获取xxxx-xx-xx这样的日期
my $weekday = $date->{wday};#获取星期


这一句有命名冲突哈（PS: 请不要在意细节……）
my $date = $date->{date}