[Perl] Generar tabla

[Sergio J Rojas H]

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 ??. 
>  
>

Checa  "group by"  y "count" , son expresiones de SQL que puedes usar 
desde el shell de mySQL para q te arroje estos resultados desde dentro 
del manejador y luego ya nadamas usas perl para pintarlos en alguna 
pantalla. Es mucho mas eficiente.

Saludos!

-- 
Sergio J Rojas H
SysAdmin & Devel
IFC/UNAM  Mexico City
(52)(55) 56225598