El codigo es el siguiente:
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use Date::Calc qw(:all);
print "Content-type: text/plain\n\n";
@start = (1999,5,27);
@stop = (1999,6,1);
$j = Delta_Days(@start,@stop);
for ( $i = 0; $i <= $j; $i++ )
{
@date = Add_Delta_Days(@start,$i);
printf("%4d/%02d/%02d\n", @date);
}
use Date::Calc qw(:all);
print "Content-type: text/plain\n\n";
@start = (1999,5,27);
@stop = (1999,6,1);
$j = Delta_Days(@start,@stop);
for ( $i = 0; $i <= $j; $i++ )
{
@date = Add_Delta_Days(@start,$i);
printf("%4d/%02d/%02d\n", @date);
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
e imprime esto:
- Código: Seleccionar todo
1999/05/27
1999/05/28
1999/05/29
1999/05/30
1999/05/31
1999/06/01
Lo que necesitaría es guardar en un array cada una de esas impresiones, o sea cada uno de los días que imprime, ¿alguna idea para esto?
