Как я могу создать относительные / приблизительные даты в Perl? - PullRequest
Новая
       35

Как я могу создать относительные / приблизительные даты в Perl?

7 голосов
/ 09 июля 2009

Я хотел бы знать, существуют ли какие-либо библиотеки (предпочтительно DateTime -esque), которые могут принимать нормальное время даты и создавать соответствующую относительную читаемую человеком дату. По сути, полная противоположность более распространенному вопросу: Как я могу разобрать относительные даты с Perl? .

Очевидно, что точная формулировка / интерпретация зависит от фактической реализации, но я ищу, чтобы обеспечить последовательный способ указать даты в будущем. Знание такой аппроксимации, как "due in 2 weeks", (для меня) более полезно для понимания того, сколько у меня осталось времени, чем что-то "due on 2009-07-30".

Примеры: 

2009-07-06        => "in 1 year"
2009-07-30        => "in 2 weeks"
2009-07-09        => "tomorrow"
2009-07-09 12:32  => "tomorrow at 12:32"
2009-07-12 05:43  => "monday morning"
2009-07-03 05:74  => "6 days ago"

Ответы [ 3 ]

8 голосов
/ 09 июля 2009

Обновление: Похоже, эта функция реализована в плагине Template Toolkit . Я оставляю здесь остаток моего ответа для справки, но Template :: Plugin :: DtFormatter может быть лучшим местом для поиска.

Глядя на исходный код этого модуля, меня привели к DateTime :: Format :: Natural , который, кажется, связан с тем, что вы хотите.

Предыдущий ответ:

Просмотрите Date :: Calc , чтобы получить дельты, используя Delta_DHMS. Вы должны быть в состоянии использовать эти дельты, чтобы выбрать, как вы собираетесь формулировать дату.

Вот очень элементарная отправная точка. Это глючит, но иллюстрирует основную идею. Добавьте логику по вкусу. 

#!/usr/bin/perl

use strict;
use warnings;

use Date::Calc qw(:all);
use Lingua::EN::Inflect qw( NO );

my @dates = (
    [ 2009, 7,  6 ],
    [ 2009, 7, 30 ],
    [ 2009, 7,  9 ],
    [ 2009, 7,  9, 12, 32 ],
    [ 2009, 7, 12,  5, 43 ],
    [ 2009, 7,  3,  5, 14 ],
    [ 2010, 8, 9 ],
    [ 2012, 8, 9 ],
    [ 2013, 8, 9 ],
);

for my $date ( @dates ) {
    print "@$date: ", relative_when( $date ), "\n";
}

sub relative_when {
    my ($year, $month, $day, $hour, $min, $sec) = @{ $_[0] };
    my ($Dyear, $Dmon, $Dday, $Dhr, $Dmin, $Dsec) = Delta_YMDHMS(
        Today_and_Now(),
        $year, $month, $day, $hour || 0, $min || 0, $sec || 0
    );
    return NO('year',  $Dyear )     if $Dyear > 0;
    return NO('month', $Dmon )      if $Dmon  > 0;
    return NO('week',  int($Dday/7) if $Dday  > 6;
    return NO('day',   $Dday)       if $Dday  > 1;
    return 'tomorrow' if $Dday == 1;
    return 'today'    if $Dday == 0;
    return "";
}

__END__

Вывод: 

C:\Temp> dfg
2009 7 6:
2009 7 30: 2 weeks
2009 7 9: today
2009 7 9 12 32: today
2009 7 12 5 43: 2 days
2009 7 3 5 14:
2010 8 9: 1 year
2012 8 9: 3 years
2013 8 9: 4 years
4 голосов
/ 09 июля 2009

Посмотрите на Сценарии относительного времени в Twitter Fan Wiki.

3 голосов
/ 09 июля 2009

Date :: Manip очень мощен для подобных вещей, но медленнее, чем Date :: Calc .

...