perl datetime format

¿Cómo puedo analizar las fechas relativas con Perl?

Question

Me encantaría saber si hay un módulo para analizar las fechas "con formato humano" en Perl. Quiero decir cosas como "mañana", "martes", "la próxima semana", "1 hora atrás".

Mi investigación con CPAN sugiere que no hay tal módulo, entonces, ¿cómo harías para crear uno? NLP está muy por encima de esto.

Answer 1

Supongo que tienes contexto. ¿Cómo podría ayudar NLP aquí? como adivinanza, podría encontrar la fecha más cercana que sea una fecha exacta (no relativa a hoy) y usar hoy / mañana / ayer para relacionarse con eso.

Answer 2

También puede encontrar interesante mirar la familia DateTime::Format , específicamente DateTime :: Format :: Natural . una vez que haya analizado su fecha / hora en un objeto DateTime, puede manipularla y evaluarla de muchas maneras diferentes.

aquí hay un programa de muestra:

use strict;
use warnings;
use DateTime::Format::Natural;
my( $parser ) = DateTime::Format::Natural->new;
while ( <> ) {
chomp;
my( $dt ) = $parser->parse_datetime( $_ );
if ( $parser->success ) {
print join( '' '', $dt->ymd, $dt->hms ) . "/n";
}
else {
print $parser->error . "/n";
}
}

salida:

tomorrow
2008-11-18 21:48:49
next Tuesday
2008-11-25 21:48:53
1 week from now
2008-11-24 21:48:57
1 hour ago
2008-11-17 20:48:59 

TMTOWTDI :)

-steve

Answer 3

Personalmente, siempre he usado Time :: ParseDate para esto. Entiende casi todos los formatos que he probado.

Formatos de fecha absolutos

 Dow, dd Mon yy
Dow, dd Mon yyyy
Dow, dd Mon
dd Mon yy
dd Mon yyyy
Month day{st,nd,rd,th}, year
Month day{st,nd,rd,th}
Mon dd yyyy
yyyy/mm/dd
yyyy-mm-dd (usually the best date specification syntax)
yyyy/mm
mm/dd/yy
mm/dd/yyyy
mm/yy
yy/mm (only if year > 12, or > 31 if UK)
yy/mm/dd (only if year > 12 and day < 32, or year > 31 if UK)
dd/mm/yy (only if UK, or an invalid mm/dd/yy or yy/mm/dd)
dd/mm/yyyy (only if UK, or an invalid mm/dd/yyyy)
dd/mm (only if UK, or an invalid mm/dd)

Formatos de fecha relativos:

 count "days"
count "weeks"
count "months"
count "years"
Dow "after next"
Dow "before last"
Dow (requires PREFER_PAST or PREFER_FUTURE)
"next" Dow
"tomorrow"
"today"
"yesterday"
"last" dow
"last week"
"now"
"now" "+" count units
"now" "-" count units
"+" count units
"-" count units
count units "ago"

Formatos de tiempo absolutos:

 hh:mm:ss[.ddd]
hh:mm
hh:mm[AP]M
hh[AP]M
hhmmss[[AP]M]
"noon"
"midnight"

Formatos de tiempo relativos:

 count "minutes" (count can be franctional "1.5" or "1 1/2")
count "seconds"
count "hours"
"+" count units
"+" count
"-" count units
"-" count
count units "ago"

Formatos de zona horaria:

 [+-]dddd
GMT[+-]d+
[+-]dddd (TZN)
TZN

Formatos especiales:

 [ d]d/Mon/yyyy:hh:mm:ss [[+-]dddd]
yy/mm/dd.hh:mm

Answer 4

Date :: Manip hace exactamente esto.

Aquí hay un programa de ejemplo:

#!/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

Lo que resulta en el siguiente resultado:

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 es una de las funciones proporcionadas por Date::Manip , el primer argumento es una fecha / hora en cualquier formato compatible con el módulo, el segundo argumento describe cómo formatear la fecha / hora. Hay otras funciones que simplemente analizan estas fechas "humanas", sin formatearlas, para usarlas en cálculos delta, etc.