 Mar Sep 11, 2007 8:36 am
|
 |
zozo666
Perlero Frecuente
|
Registrado: 26 May 2007
Mensajes: 137
|
|
| Extraer información de Date::calc |
 |
|
Necesito extraer la información que escribe el printf:
El codigo es el siguiente:
| Perl: | #!/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);
} |
e imprime esto:
| Código: |
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? |
|
|
|
|
Mar Sep 11, 2007 10:38 am
|
|
Rene Serrano
Perlero Nuevo
|
Registrado: 27 Nov 2006
Mensajes: 82
Ubicación: El salvador CA
|
|
|
|
|
Bueno no sési es esto lo que quieres:
Ya tiene todo lo que imprime sprintf en el arreglo fechas. De ahí lo puedes imprimir así:
$fechas[0]; esto te imprimirá el primer registro del arreglo. Si lo metes dentro de un for tendrás cada una de las fechas. Espero que sea lo que necesites.
Saludos |
|
|
Mar Sep 11, 2007 11:12 am
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4086
Ubicación: Valladolid, España
|
|
|
|
|
Si lo que quieres es 'meter' en un array, usa 'push':
Cada elemento de @fechas será una cadena de texto, la formateada por sprintf.
Ultima edición por explorer el Mar Sep 11, 2007 12:46 pm, editado 1 vez |
|
|
Mar Sep 11, 2007 12:39 pm
|
|
zozo666
Perlero Frecuente
|
Registrado: 26 May 2007
Mensajes: 137
|
|
|
|
|
| Muchas gracias por tu ayuda, ya lo pude hacer |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
