请教：perl中的时间函数

tramplzh

比如我现在有一个时间"2005-10-21 10:00:00" 我要获取相对该时间7天前（当然也可能是其它间隔单位）时间，有什么函数可以实现？
谢谢

另外，localetime可以将time时间转换位年月日，什么函数可以进行相反的转化（类似C语言中的mktime函数功能）吗？

多谢

[ 本帖最后由 tramplzh 于 2006-1-10 15:04 编辑 ]

guixin

沙发，我也要处理这个问题

fayland

Time::Local
可以试试。
或者什么 Date::Simple 之类的。

guixin

use POSIX qw(strftime);
use Time::Local;
#timelocal($sec,$min,$hour,$day,$mon,$year);
sub main {
        my ($date_hd);

        my $tims = timelocal("00","00","16","10","01","2006";
        $date_hd = strftime "%Y-%m-%d %H:%M:%S", localtime($tims);
        my $ses = localtime($tims);
        printf"ses=$ses,$date_hd\n";
        $date_hd = strftime "%Y-%m-%d %H:%M:%S", localtime(time);
        my $ses = localtime(time);
        printf"ses=$ses,$date_hd\n";

}

main();


转换过来后，月份加1了，这是为什么呢

guixin

输出：
ses=Fri Feb 10 16:00:00 2006,2006-02-10 16:00:00
ses=Tue Jan 10 16:57:29 2006,2006-01-10 16:57:29

guixin

为什么没人回复呢

怒剑狂啸

这段引用自cpan的Time::Local文档，你好好看看就知道为什么了！

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().

guixin

谢谢