Foro - Perl en Español

Hola, ¿qué tal? Estoy poniendo un total en una tabla (insertando una fila de total de una suma), y realiza correctamente la suma y me inserta al terminar un grupo de filas que tienen una columna en común, pero no me imprime la último fila con la última suma, tomando en cuenta que si realiza la suma puesto que lo puse en un aviso y sí me da el último valor. ¿Esto a qué se debe? ¿Por qué no me muestra el último total de los grupos de filas? Saludos.

Es muy sencillo: el bucle termina porque se acaban las filas recuperadas de la base de datos, por lo tanto, no se entra en el if() para pintar la última línea de totales.

Debes agregar, después del bucle, más código, para poder crear el último total. Será una línea parecida o idéntica a la línea 8.

Vale, sí quedó de esa manera, ahora bien... si lo que quiero es que ahora me agrupe los datos de esta tabla, por ejemplo si tengo 3 filas iguales en una columna pero diferente cantidad para sumar quiero que solo me aparezca una sola vez la fila que se repita pero que haga la suma de las 3, tomando en cuenta que los datos de la tabla la estoy obteniendo de un método. Ejemplo:

quiero que quede así:

Los datos que tengo son un array listo para poner en la tabla, pero lo que quiero es que no me muestre los datos repetidos; que los ponga una sola vez.

Humm... creo que lo más sencillo es que declares un nuevo array, y lo vayas poblando con el contenido que realmente necesitas, y no andar modificando el array original.

Bueno, es que otro método busca este array del modo que esta estructurado; es por eso que necesito ese array

Ya quité los duplicados, ahora necesito reemplazar la posición 7 por la suma de todos sus similares en la misma posición.

Pero... si quitas los duplicados, ¿cómo haces la suma?

Debes hacerlo a la vez. Algo así:

Fíjate que no solo indicamos que salgan las líneas de totales. Por eso te dije lo de usar un array nuevo.

Lo que puedes hacer es guardar las nuevas líneas en el nuevo @array, y cuando termine el bucle de los totales, haces un

@{self->Table} = @array;

y ya lo tendrás almacenado.

No he logrado que me funcione de la manera que me comentas, de hecho cuando trato de sobreescribir el array con solo los campos que necesito no me lo permite

Sería algo así (no probado):

Sí funciona, solo que hay un detalle... al hacer el push() está quitando el primer elemento del siguiente grupo de datos, por lo tanto no contabiliza para la siguiente suma.