请问perl什么时间函数能实现 日期-->天数的转换

gig2600

比如当前日期是
2007.1.1
转换后为
2007001，

2007.1.10
转换后为
2007010，

2007.1.31
转换后为
2007031

python中一个%j的参数就可以，请问perl中如何实现呢

alexru

Data::Format
同样有个%j

1. 
   
2. use strict;
   
3. use warnings;
   
4. use Date::Format;
   
5. 
   
6. my @lt = localtime();
   
7. print strftime("%j", @lt);
   
8. print "\n";

复制代码

output

1. 
   
2. 150

复制代码

[ 本帖最后由 alexru 于 2007-5-30 18:16 编辑 ]

gig2600

用起来挺方便，唯一的缺点就是这个模块不是默认自带，需要安装。
如果我这里有1k台机器，就麻烦了

FinalBSD

use POSIX qw(strftime);
my $date        = strftime "%j",localtime;
print $date;

liht1981

my $now = `date '+%m%d%y'`;
print "The time is now $now";