perl 如何得到今天，昨天，前n天的“2008-11-12”这样的字符串

john.daker

UID: 36690
帖子: 162
积分: 372
在线时间: 1 天 12 小时

1^# john.daker 发表于 2008-11-18 12:06

perl 如何得到今天，昨天，前n天的“2008-11-12”这样的字符串

一个函数参数为n，n=0则返回今天的"2008-11-18", 其他则返回n天前的"2008-11-02"这样的，如何做？

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-11-18 12:28

一天是 86400 秒，n 天就是 n * 86400 秒。

use POSIX qw(strftime);

my $timeStr = strftime "%Y-%m-%d", localtime( time - 86400 * n );

shiru_tx

UID: 42266
帖子: 160
积分: 368
在线时间: 1 天 11 小时

3^# shiru_tx 发表于 2008-11-18 13:50

Date::Manip;
可以在CPAN里得到。

Ksharp

UID: 18880
帖子: 7
积分: 16
在线时间: 10 分钟

4^# Ksharp 发表于 2008-11-18 14:18

QUOTE:

原帖由 flw 于 2008-11-18 12:28 发表
一天是 86400 秒，n 天就是 n * 86400 秒。

use POSIX qw(strftime);

my $timeStr = strftime "%Y-%m-%d", localtime( time - 86400 * n );

哇又多一种方法，谢谢~
但如果是在Windows机器上呢？

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

5^# flw 发表于 2008-11-18 14:41

QUOTE:

原帖由 Ksharp 于 2008-11-18 14:18 发表

哇又多一种方法，谢谢~
但如果是在Windows机器上呢？

不如先 try 一把？