Pasar fecha a time y viceversa!

yacatl · #1 (**permalink**) 20/03/2008, 09:27

Estoy tratando con fechas y todo lo que me encuentro es como formatear la fecha. Resulta que yo necesito comprar fechas y meterlas a un while, de tal manera que un proceso se repita siempre y cuando la fecha no rebase un rango.

Digamos:

Código:

my ($fecha1) = "2008-01-01";
my ($fecha2) = "2008-01-31";

Yo necesitaria repetir un proceso que busca datos en la base por fecha especifica, , entonces tendria que ir metiendo un dia a la vez e ir avanzando desde el 1 de enero hasta que la fecha llegue al 31 de enero de 2008.

Lo que he pensado es convertir la fecha a time() para que comparar entre enteros, pero no encuentro como pasar mi cadena a formato time() .

Espero me puedan ayudar.

Saludos!!

jferrero · #2 (**permalink**) 20/03/2008, 19:29

Código:

#!/usr/bin/perl -l
use DateTime;

my $fecha1 = DateTime->new(
    year  => 2008,
    month =>  1,
    day   =>  1,
);
my $fecha2 = DateTime->new(
    year  => 2008,
    month =>  1,
    day   => 31,
);

for (
        my $fecha = $fecha1;
        DateTime->compare($fecha, $fecha2) <= 0;
        $fecha->add( days => 1 )
    ) {

    print $fecha->ymd;
}

Código: