Foro - Perl en Español

por **zozo666** » 2007-09-10 10:40 @486

Hola perleros, necesitaría que me den una mano con esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use POSIX qw(strftime);
my$f_aux= 7 *86400;
my$f_baja= strftime('%Y-%m-%d',localtime(time+$f_aux));
print$f_baja;Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Esto lo que hace es sumarle al día de hoy 7 días.
Lo que yo necesitaría no es sumárselo al día de hoy, sino al día que yo ingrese.

Por ejemplo a 2007/5/6 sumarle 7 días y me quede 2007/7/13.

¿Qué forma hay para hacer esto?

Hay varias formas...

La más sencilla es pasar los componentes de la fecha (día, mes y año) a la función timelocal() del módulo Time::Local, y así pasas de una fecha a segundos desde el epoch. Luego, le sumas los segundos que hay en siete días. Y finalmente pasas los segundos a fecha con la función localtime().

La forma complicada, pero completa, es la indicada por kidd.

Y la forma recomendada es usando DateTime:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use DateTime;
my$fecha= DateTime->new(

    year  => 2007,

    month => 5,

    day   => 5,
);

$fecha->add( days => 7 );

print$fecha->ymd('/');# 2007/05/12Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **zozo666** » 2007-09-10 12:35 @566

Muchísimas gracias explorer, más práctico imposible. Adiós

Foro - Perl en Español

Extraer información de POSIX qw(strftime)

Extraer información de POSIX qw(strftime)

Publicidad

¿Quién está conectado?