perl日期計(jì)算

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);'  這是一個(gè)例子 可以滿足你的需要  QQ：258391告訴我的 你可以找他

Kitaisky

perldoc -f localtime

use Time::localtime;

cu_little_bird

perl我才剛上路呢

moxnet

perl怎么得到指定日期的前幾天嗎？
比如：2010-07-30之前的7天2010-07-24呢？
謝謝！
linux68 發(fā)表于 2011-07-27 10:02

中8的方法比較smart, 但需要安裝額外模塊, 可能依賴會(huì)比較多. 我曾經(jīng)裝過DateTime模塊,相當(dāng)多.

或者也可自己實(shí)現(xiàn), 將你的2010-07-30日期先轉(zhuǎn)換為timestamp的秒數(shù)(mktime,是與localtime的反向操作), 再減少你的7天的秒數(shù), 再通過localtime換成yyyy-mm-dd

shellxn

perl怎么得到指定日期的前幾天嗎？
比如：2010-07-30之前的7天2010-07-24呢？
謝謝！
linux68 發(fā)表于 2011-07-27 10:02

perldoc Date::Calc

Add_Delta_Days

linux68

回復(fù) 2# zhlong8
我是剛學(xué)perl 您給個(gè)例子學(xué)習(xí)一下，謝謝！

linux68

回復(fù) 6# moxnet
我用timelocal（）把2011-07-20轉(zhuǎn)換為對(duì)應(yīng)的unix時(shí)間戳，結(jié)果不對(duì)，還有什么方法把普通日期轉(zhuǎn)成對(duì)應(yīng)的unix時(shí)間戳呢？

jason680

回復(fù)  moxnet
我用timelocal（）把2011-07-20轉(zhuǎn)換為對(duì)應(yīng)的unix時(shí)間戳，結(jié)果不對(duì)，還有什么方法把普通日期 ...
linux68 發(fā)表于 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().