请问一个时间计算的问题

ZealeS

请问一个时间计算的问题：
下面是我用C计算2005-01-18 12:30:00之前45分钟的时间。

1. 
   
2.   char s_time[128];
   
3.   struct tm ptr;
   
4.   time_t lt;
   
5.   
   
6.   ptr.tm_sec = 0; //秒
   
7.   ptr.tm_min = 30; //分
   
8.   ptr.tm_hour = 12;        //小时
   
9.   ptr.tm_mday = 18; //天
   
10.   ptr.tm_mon = 1 -1; //月
    
11.   ptr.tm_year = 2005 - 1900; //年
    
12.   ptr.tm_isdst = 0;
    
13.   
    
14.   lt = mktime (&ptr) + 45 * 60; //45分钟
    
15.   ptr = *localtime ( &ls );                //转化时间
    
16.   sprintf (s_time, "%02d-%02d-%02d %02d:%02d:%02d", ptr.tm_year + 1900, ptr.tm_mon + 1,
    
17.                      ptr.tm_mday, ptr.tm_hour, ptr.tm_min, ptr.tm_sec);
    

复制代码

虽然这种方法有时改变时区可能造成问题, 但还是很舒服的.
这样我就可以得到时间2005-01-18 11:45:00.
还可以顺便得到其它的内容,比如星期几等.

但是用Perl就不知道怎么实现了.Perl应该怎样才能实现呢?

deathcult

print scalar localtime(time -45*60)

ZealeS

[quote]原帖由 "deathcult"]print scalar localtime(time -45*60)[/quote 发表：

版主误解我的意思了。
我要的不是系统时间的计算。
而是根据随便输入的日期进行计算，在不用其他算法的基础上，得到之前或之后的时间。

superdoctor

看我在下面帖子里面的一段程序

http://bbs.chinaunix.net/forum/viewtopic.php?t=481040

tiw

可以用date::calc模块