Perl取得日期

kevinadmin

1^# kevinadmin 发表于 2008-07-22 15:41

要在perl脚本里取得当时日期，怎么写？
比如我要取今天的日期 20080722 这个变量应该怎么写？

lokchungk

2^# lokchungk 发表于 2008-07-22 15:42

localtiome()
$time = `date`;

converse

3^# converse 发表于 2008-07-22 15:50

my $time = time;
      my ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime $time;
      $year += 1900;
      $mon += 1;

kevinadmin

4^# kevinadmin 发表于 2008-07-22 15:53

已经搞定看了之前的贴子

kevinadmin

5^# kevinadmin 发表于 2008-07-22 15:56

多谢!!! 回贴才看见你们的回复呵呵

a_789_123

6^# a_789_123 发表于 2008-07-22 17:37

use POSIX qw(strftime);
use Time::Local;

my $loaltimes=strftime "%Y-%m-%d %H:00:00",localtime;
my $loaltimes= strftime "%Y%m%d%H0000",localtime;

hdc1112

7^# hdc1112 发表于 2008-07-23 19:39

my ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime $time;

就用这一经典吓人语句吧。。。

注意year要加1900