Foro - Perl en Español

por **alperez** » 2019-04-22 08:17 @387

Hola.

Una duda que me ha surgido y que no sé muy bien cómo implementar a la hora de tener un rango de fecha y hora para filtrar qué procesos están en ese rango y quedarme sólo con ellos sin tener en cuenta cuándo hay un cambio de día, de mes o de año. Más o menos tengo lo siguiente sacado.

1- Recibo de un json un dato de fecha StarTime: 2019-04-18T16:00:00.000Z

2- Obtengo la hora de ejecución actual del script con el comando date: "`date +"%Y-%m-%d/%H:%M:%S"`;" que me gustaría saber si se puede obtener directamente en Perl el mismo comando: 2019-04-22/15:15:42

3- Obtengo 15 minutos hacia atrás de la hora de ejecución "`date --date='15 min ago' +"%Y-%m-%d/%H:%M:%S"`;" que me gustaría saber si se puede obtener también con Perl: 2019-04-22/15:00:54

Por último y con estos tres datos necesito saber si la fecha de startime está en el rango de [hora 15 minutos atrás] [starttime] [hora actual de ejecución].

¿Existe algún procedimiento para poder sacar estos datos si tener que hacer muchas consultas de if()?

Saludos.

#!/usr/bin/env perl
use v5.26;                              # queremos características modernas
use utf8;                               # el código contiene caracteres en utf8
use open IO => qw':utf8 :std';          # las entradas y salidas en UTF8. También las E/S estándar
use Time::Local;
 
my $fecha_archivo = "2019-04-23T01:04:00.000Z";
if ($fecha_archivo =~ /(?<año>\d{4})-(?<mes>\d{2})-(?<día>\d{2})T(?<hora>\d{2}):(?<minutos>\d{2}):(?<segundos>\d{2})/) {
 
    # calculamos la fecha epoch
    my $time_archivo = timelocal($+{segundos}, $+{minutos}, $+{hora}, $+{día}, $+{mes}-1, $+{año});
 
    #say $time_archivo;
    #say time;
 
    my $diferencia = time - $time_archivo;
    #say time-$time_archivo;
 
    if ($diferencia < 900) {
        say "Está dentro del cuarto de hora";
    }
    else {
        say "Es demasiado viejo";
    }
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Con una simple resta, sabemos si estamos dentro del cuarto de hora.

por **alperez** » 2019-04-23 05:52 @286

Hola, explorer, muchas gracias. ¡¡Perfecto!! Es mucho mejor pasarlo todo a segundos y realizar el cálculo con las fechas en formato epoch.

Lo único que para sacar los segundos de una fecha he utilizado una función que se llama "str2time". ¿Sería correcto?

por **explorer** » 2019-04-23 14:28 @644

No sé qué función es esa, pero si te funciona, pues adelante.

(Cuidado no te confunda la posición de los meses y los días, ya sabes que las fechas en inglés invierte la posición con respecto a las fechas en español).

Foro - Perl en Español

Rango de fechas en Perl

Rango de fechas en Perl

Publicidad

Re: Rango de fechas en Perl

Re: Rango de fechas en Perl

Re: Rango de fechas en Perl

¿Quién está conectado?