Foros del Web - Ver Mensaje Individual

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: