perl取当前时间的问题

chlotte

#!/usr/bin/perl -w
my $data=`date -d "6 day ago"| awk '{print $1}'`;
print "$data\n";

执行上面的脚本后显示的是 2010年 06月 15日 星期二 10:22:07 CST  我只想取 2010年 06月 15日这个字段,请问应该怎么做,谢谢!

不死草

使用Substr

climby

回复 1# chlotte


    既然用了date命令，date本身完全能帮你达到目的的。试试这个：

1. date -d "6 day ago"  '+%Y%m%d'

复制代码

chlotte

谢谢二位的回复,刚才试了一下substr
#!/usr/bin/perl -w
my $data=`date -d "6 day ago"| awk '{print $1}'`;
print substr($data,0,19),"\n";

yigenjin

放着那么好用的strftime不用...

zhaobin81

#!/usr/bin/perl

use POSIX qw(strftime);
$now_string = strftime "%Y-%m-%d %H:%M:%S", localtime;

print "$now_string";