Chinaunix

标题: Perl如何取得当前日期 [打印本页]
作者: ianywhere    时间: 2006-08-31 22:22
标题: Perl如何取得当前日期
想取得当前日期,但是下面这个代码返回的结果很奇怪,请问各位大侠有什么建议?谢谢

($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst) = gmtime();
print "gmtime() 19$year-$mon-$mday\n";
作者: 兰花仙子    时间: 2006-08-31 22:45
  1. sub getTime
  2. {
  3.     my $time = shift || time();
  4.     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);

  6.     $year += 1900;
  7.     $mon ++;

  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];

  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    时间: 2006-08-31 23:07
原帖由 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    时间: 2006-09-01 07:20
多谢,多谢!!!
作者: ianywhere    时间: 2006-09-01 07:53
另外一个问题,有没有办法取得昨天的日期呢?谢谢
作者: 兰花仙子    时间: 2006-09-01 09:08
原帖由 ianywhere 于 2006-9-1 07:53 发表
另外一个问题,有没有办法取得昨天的日期呢?谢谢


这样调用偶的那个函数即可：
my $yesterday = getTime(time() - 86400);
作者: ianywhere    时间: 2006-09-01 16:06
好了.

多谢
作者: 523066680    时间: 2014-04-14 20:41
回复 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}



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2