请教一个问题，perl有类似数据库to_date功能的函数吗？

iuytr123

我现在有一个小程序，传入一个参数‘2010-01-01’，我想得到这个日期的前一天，也就是‘2009-12-31’，但由于这是个字符串，又不能直接进行加减。

在Oracle里面可以这样做 to_char(to_date('2010-01-01','YYYY-MM-DD')-1,'YYYY-MM-DD')，请问在perl里面怎么实现呢？

谢谢~

兰花仙子

$ perl -MTime::Local -MPOSIX=strftime -le '$t=timelocal(0,0,0,1,0,2010);print strftime("%Y-%m-%d",localtime($t-86400))'
2009-12-31

或者简单一点用Date::Calc.

dahe_1984

仙子冰雪聪明

wxlfh

我喜欢冰雪聪明的女孩儿，可以省很多事

DQP

回复 4# wxlfh


    会多出很多事     

wxlfh

回复  wxlfh


    会多出很多事
DQP 发表于 2010-02-08 23:26

    多出来的，那是故事或者事故

兰花仙子

我喜欢冰雪聪明的女孩儿，可以省很多事
wxlfh 发表于 2010-02-08 21:25

   

dahe_1984

不见得会省事吧