[求教]perl中的日期转换。

edward

小弟初涉perl，想通过她取得系统的当前时间，然后转化为yyyymmdd的格式作为日志文件名，可是time()函数取得的格式怎么转化为yyyymmdd呢！
谢谢各位

ulmer

原帖由 edward 于 2006-4-4 16:17 发表
小弟初涉perl，想通过她取得系统的当前时间，然后转化为yyyymmdd的格式作为日志文件名，可是time()函数取得的格式怎么转化为yyyymmdd呢！
谢谢各位

Please read:
perldoc -f time
perldoc -f locatime

1. 
   
2. time    Returns the number of non-leap seconds ...
   
3. localtime:     #   0,1, 2, 3, 4,5, 6, 7, 8
   
4.                    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
   

复制代码

Try this:
my ($m, $d, $y) = (localtime)[3..5];
my $yyyymmdd = (1900+$y) . sprintf("%02d", $m) .sprintf("%02d", $d);
print $yyyymmdd;

Best, ulmer

兰花仙子

原帖由 edward 于 2006-4-4 16:17 发表
小弟初涉perl，想通过她取得系统的当前时间，然后转化为yyyymmdd的格式作为日志文件名，可是time()函数取得的格式怎么转化为yyyymmdd呢！
谢谢各位

using POSIX::strftime() is simple way.

1. $ perl -MPOSIX -le 'print POSIX::strftime ("%Y%m%d",localtime)'
   
2. 20060404

复制代码

edward

thanks !!

jimyu

sub todayYyyyMmDd {
        my ( undef, undef, undef, $day, $month, $year, undef, undef, undef ) = localtime(time);

        $year += 1900;
        $month ++;
        $month = "0$month" if (length($month)==1);
        $day = "0$day" if (length($day)==1);
        my $yyyyMmDd = $year . "-" . $month . "-" . $day;

        return $yyyyMmDd;
}

nv2test

use Time::localtime;

$tm = localtime;
($year,$mon,$day) = ($tm -> year+1900,$tm -> mon+1,$tm -> mday);
print "$year$mon$day";