• Publicidad

Problema con fechas

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Problema con fechas

Notapor fgalves » 2006-11-17 10:51 @493

Hola a todos,

El caso es que estoy bloqueado con un problema de fechas:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
(undef, undef, undef,  $d_, $mth_, $y_, undef, undef, undef) = gmtime();
# compute and enter the right directory

$day = sprintf("%04d",($y_+1900)).sprintf("%02d",($mth_+1)).sprintf("%02d",$d_-1);
$workingDir = "$workingDirBase/$day";
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


El caso es que dicho código no funciona cuando estamos en el primero de mes, pues para calcular $day, hago un $d-1.
¿Cómo obtener el día anterior correctamente? ¿Hay alguna función/librería que lo haga?

¡¡Gracias por adelantado!!
Felipe
fgalves
Perlero nuevo
Perlero nuevo
 
Mensajes: 210
Registrado: 2006-09-25 13:54 @621

Publicidad

Notapor explorer » 2006-11-17 11:14 @510

Lo que tienes que hacer es coger la máquina del tiempo y regresar un día hacia atrás.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
(undef, undef, undef,  $d_, $mth_, $y_, undef, undef, undef) = gmtime(time-86_400);
$day = sprintf("%04d",($y_+1900)).sprintf%02d",($mth_+1)).sprintf("%02d",$d_);
print $day;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor fgalves » 2006-11-17 11:23 @516

Justo por curiosidad,
¿Cómo funciona eso de time-86_400? ?De dónde salen esas cifras?

¡¡Muchas gracias!!
Felipe
fgalves
Perlero nuevo
Perlero nuevo
 
Mensajes: 210
Registrado: 2006-09-25 13:54 @621

Notapor explorer » 2006-11-17 11:29 @520

24 horas/día * 60 minutos/hora * 60 segundos/minuto = 86.400 segundos/día
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor fgalves » 2006-11-17 11:49 @534

Ok, ahora lo pillo.
Muchas gracias!!
Felipe
fgalves
Perlero nuevo
Perlero nuevo
 
Mensajes: 210
Registrado: 2006-09-25 13:54 @621


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: Bing [Bot] y 3 invitados

cron