perl日期计算

linux68

perl怎么得到指定日期的前几天吗？
比如：2010-07-30之前的7天2010-07-24呢？
谢谢！

zhlong8

减去 7天不就行了？ Perl 自带的模块 Time::Piece Time::Seconds

wfg21314wang

perl -MPOSIX -le 'print strftime "%c", localtime(time()-86400);'  这是一个例子 可以满足你的需要  QQ：258391告诉我的 你可以找他

Kitaisky

perldoc -f localtime

use Time::localtime;

cu_little_bird

perl我才刚上路呢

moxnet

perl怎么得到指定日期的前几天吗？
比如：2010-07-30之前的7天2010-07-24呢？
谢谢！
linux68 发表于 2011-07-27 10:02

中8的方法比较smart, 但需要安装额外模块, 可能依赖会比较多. 我曾经装过DateTime模块,相当多.

或者也可自己实现, 将你的2010-07-30日期先转换为timestamp的秒数(mktime,是与localtime的反向操作), 再减少你的7天的秒数, 再通过localtime换成yyyy-mm-dd

shellxn

perl怎么得到指定日期的前几天吗？
比如：2010-07-30之前的7天2010-07-24呢？
谢谢！
linux68 发表于 2011-07-27 10:02

perldoc Date::Calc

Add_Delta_Days

linux68

回复 2# zhlong8
我是刚学perl 您给个例子学习一下，谢谢！

linux68

回复 6# moxnet
我用timelocal（）把2011-07-20转换为对应的unix时间戳，结果不对，还有什么方法把普通日期转成对应的unix时间戳呢？

jason680

回复  moxnet
我用timelocal（）把2011-07-20转换为对应的unix时间戳，结果不对，还有什么方法把普通日期 ...
linux68 发表于 2011-07-27 11:46

$ cat timelocal.pl

use strict;
use warnings;

use Time::Local;

my $time = timelocal(0,0,0,20,7-1,2011);
# month = 0 ~ 11 for 1 to 12 month

print scalar localtime($time);


$ perl timelocal.pl
Wed Jul 20 00:00:00 2011

=====================================
http://perldoc.perl.org/Time/Local.html
...
It is worth drawing particular attention to the expected ranges for the values provided. The value for the day of the month is the actual day (ie 1..31), while the month is the number of months since January (0..11). This is consistent with the values returned from localtime() and gmtime().