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.

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.

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

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

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?