Foro - Perl en Español

Buen día a todos los perleros.

Hoy se me presentó un problema. He estado realizando una resta de fechas con Date::Manip y delta_format(), pero con el formato más completo de fechas GMT.

Sucede que sí la realizo y luego ese resultado lo sumo, pero muestra días y horas incorrectos. Así que decidí realizar las sumas y restas solo en segundos y luego convertirlos en fechas y tiempos. Pero no sé cómo.

Voy a dejar el ejemplo de cómo lo he realizado normal.

print "$tiempos[1]\n";
print "$tiempos[0]\n";
$diferencia = DateCalc("$tiempos[0]", "$tiempos[1]",);
$dias = Delta_Format($diferencia,2,"%hv:%mv:%sv");
$totaltime[$t]=$dias;
$t=$t+1;
print "$tiempos[1]\n";
print "$tiempos[2]\n";

$diferencia = DateCalc("$tiempos[1]", "$tiempos[2]",);
$dias = Delta_Format($diferencia,2,"%hv:%mv:%sv");
$totaltime[$t]=$dias;

print"$totaltime[1]\n";
print"$totaltime[0]\n";

$add_reps= DateCalc( $totaltime[0], + $totaltime[1]);
$suma_reps= Delta_Format($add_reps,2,"%hv:%mv:%sv");
print"$suma_reps\n";

Gracias, espero su ayuda.

Una forma de hacerlo sería usando las funciones que ofrece Time::Local


De todas maneras, se aconseja siempre usar las facilidades de la familia DateTime, para realizar operaciones con fechas. En estos hilos hay algunos ejemplos de sumas, restas, diferencias, días laborables y festivos.

Gracias, es buena esa opción, aunque encontré esta forma de hacerla sin convertir nada.

Ya teniendo las dos fechas en el formato GMT logré hacer esto:

$add_reps= DateCalc( $totaltime[0], + $totaltime[1]);
$suma_reps= Delta_Format($add_reps,2,"%hv:%mv:%sv");
print"$suma_reps\n";

y muestra todo ordenado, que sucede que muestra un día que no es ni la hora más si muestra bien la suma de segundos y minutos.

2011-04-27 13:51:12 tiempo[1]
2011-04-27 13:50:03 tiempo[0]
2011-04-27 13:50:12 tiempo[1]
2011-04-27 14:02:27 tiempo[2]
0:11:15 totaltime(tiempo[2].tiempo[1])
0:1:9 totaltime(tiempo[1,tiempo[0])
suma total
16:12:24

Me di cuenta de que toma la fecha actual de la computadora:

suma total
2011051600:12:24

si imprimo add_reps. no sé por qué toma esa fecha. Debería tomar las fechas que se indican. Gracias nuevamente.

Quizás el problema esté en el orden de cálculo de las diferencias... A mí sí que me sale bien:

Gracias por la respuesta amigo.

El inconveniente es que no sé qué es say() debido a que al correr el programa menciona error en ese say().

Mi problema está en la suma. No sé por qué pero no me da el valor.

Comentando el delta_format,

$add_reps= DateCalc($totaltime[0], + $totaltime[1]);
#$suma_reps= Delta_Format($add_reps,2,"%hv:%mv:%sv");
print"$add_reps\n";

2011051700:12:24, toma la fecha del sistema o de la computadora. Pero no debería y sin comentar el delta_fomat muestra la suma pero si coloco la hora muestra esto:

20:12:24.

¿Qué error estaré cometiendo?

Muchas gracias por las repuestas.
Feliz día

say() es un print() con un "\n" al final.

say() se importa desde la línea 'use Modern::Perl;'.

En cuanto a lo que estás haciendo, sería conveniente que publicaras el código de un programa entero en donde salga este error o muestres lo que quieres hacer, es decir, además de las líneas que has publicado en el primer mensaje, poner las líneas donde inicializas @tiempos.

Vamos, poner un programa pequeño, pero completo, donde se muestre la salida errónea, y nos dices además, qué salida es la que esperas.

Buen día.

Ha surgido una curiosidad con el DateCalc(): SU FUNCIÓN es tanto para sumar y restar, pero ¿cómo saber qué hace y cómo? Ya he revisado el módulo en CPAN pero no encuentro algo que lo defina. Es decir, en un momento él resta uno de los valores y en otro, suma, pero ¿cómo sé en cuál? Aunque hace la operación no veo diferencia en la aplicación ejemplo.

my $delta1 = DateCalc($date2,$date1); # resta

my $total = DateCalc($delta1, $delta2); # suma de deltas

La función DateCalc() está definida en Date::Manip::DM6, pero deja la explicación de las distintas operaciones matemáticas para el módulo Date::Manip::Calc.

Hay tres tipos de cálculos:

Cálculos fecha/fecha: el resultado es

$delta = $fecha2 - fecha1;

Si el tercer parámetro de la función es distinto de cero, el resultado es

$delta = $fecha1 - fecha2;

Cálculos delta/delta:

$fecha2 = $fecha1 + $delta;

Si el tercer parámetro de la función es distinto de cero, el resultado es

$fecha2 = $fecha1 - $delta;

Cálculos delta/delta:

$delta3 = $delta1 + $delta2;

Si el tercer parámetro de la función es distinto de cero, el resultado es

$delta3 = $delta1 - $delta2;

Hola, buena tardes. Yo también necesito dar uso a esa función y tengo la misma duda. En estos diferentes casos, ¿cuál representa el tercer parámetro? ¿Y qué representa "delta"? ¿Es el resultado de una resta previa?

El tercer parámetro es el tercer (opcional) argumento que se le pasa a DateCalc. Más información en los enlaces indicados antes.

'delta' es un periodo de tiempo, no una fecha ni una hora, sino un lapso, una duración.

Repito que es más cómodo usar los módulos de DateTime, que Date::Manip.