[Perl] Generar tabla

Alejandro G. Bedoya nezumi en prodigy.net.mx
Jue Sep 22 00:11:32 CDT 2005


Saludos!!!

Toda tabla es al fin de cuentas una matrix, y estas se pueden hacer 
facilmente con un hash de hashes:

0.- No uses MySQL es muy chafa.
1.- Declara un hash de hashes my %Reedems (porque siempre programas con 
"use strict", verdad?)
2.- Recorre todos los registros de tu query.
3.- En cada registro $Reedems{$CreationDate}{$State}+=$Redeemed_Kodes
4.- Ya tienes la matrix, genera la tabla como quieras. Ten cuidado con 
los nulos.


---
Sinceramente
Alejandro G. Bedoya


Rafael Marques Parra wrote:

>Buenas lista !!!
>
>Tengo un problema al generar una pequeña tablita, jalando datos de una base de datos mysql.
>Estos son los datos que obtengo de la tabla:
>
>+-------+----------------+--------------+
>| State | Redeemed_Kodes | CreationDate |
>+-------+----------------+--------------+
>| 5     |              1 | 2005-09-07   |
>| 5     |              6 | 2005-09-07   |
>| 4     |              8 | 2005-09-08   |
>| 4     |              6 | 2005-09-08   |
>| 5     |              3 | 2005-09-09   |
>| 33    |              4 | 2005-09-09   |
>| 33    |              2 | 2005-09-09   |
>
>Ahora bien de estos datos debo de generar algo como esto:
>
>  Date       Estado4   Estado5  Estado33 
>2005-09-09      0         3        6  
>2005-09-08      14        0        0
>2005-09-07      0         7        0
>
>Espero me entiendan, pero hasta ahora no he podido hacerlo, he intentado guardar las fechas en un hash y asi eliminar duplicados de fecha pero mi bronca ha sido como hago para guardar el valor perdido cuando elimine un duplicado de fecha ??.
>
>Alguien me puede echar una mano ??. 
>
>Saludos
>_________________________________________________________________________
>¡Encuentra trabajo ya! Tenemos miles de vacantes.
>www.trabajahoy.com
>
>
>
>_______________________________________________
>Perl mailing list
>Perl en tlali.iztacala.unam.mx
>http://tlali.iztacala.unam.mx/cgi-bin/mailman/listinfo/perl
>
>  
>



Más información sobre la lista de distribución Perl