perl - 如何用 Perl 解析相对日期？

Question

我很想知道是否有一个模块可以解析 Perl 中的“人工格式化”日期。我的意思是“明天”、“星期二”、“下周”、“1 小时前”。

我对 CPAN 的研究表明没有这样的模块，那么您将如何创建一个呢？ NLP 在这方面遥遥领先。

Answer 1

Date::Manip正是这样做的。

这是一个示例程序:

#!/usr/bin/perl

use strict;
use Date::Manip;

while (<DATA>)
{
  chomp;
  print UnixDate($_, "%Y-%m-%d %H:%M:%S"),  " ($_)\n";
}

__DATA__
today
yesterday
tomorrow
last Tuesday
next Tuesday
1 hour ago
next week

这导致以下输出:

2008-11-17 15:21:04 (today)
2008-11-16 15:21:04 (yesterday)
2008-11-18 15:21:04 (tomorrow)
2008-11-11 00:00:00 (last Tuesday)
2008-11-18 00:00:00 (next Tuesday)
2008-11-17 14:21:04 (1 hour ago)
2008-11-24 00:00:00 (next week)

UnixDate 是 Date::Manip 提供的功能之一，第一个参数是模块支持的任何格式的日期/时间，第二个参数描述如何格式化日期/时间。还有其他函数只解析这些“人类”日期，而不对其进行格式化，用于增量计算等。