HTML::Template y DBI

[DarkXNightmare]

Hola Chicos...
Estaba buscando la forma de obtener un hash con todos los resultados desde mi base de datos para transportarlos a un Template que tengo en HTML.

Aquí dejo el codigo...

Código HTML:

...
<TMPL_LOOP NAME=ROWS>
  <tr>
    <td><TMPL_VAR NAME=ID></td>
    <td><TMPL_VAR NAME=NOMBRE></td>
    <td><TMPL_VAR NAME=RUT></td>
    <td><TMPL_VAR NAME=DIRECCION></td>
    <td><TMPL_VAR NAME=COMUNA></td>
    <td><TMPL_VAR NAME=CIUDAD></td>
    <td><TMPL_VAR NAME=GIRO></td>
    <td><TMPL_VAR NAME=TELEFONO></td>
    <td><TMPL_VAR NAME=FAX></td>
  </tr>
</TMPL_LOOP>
...

Aquí el codigo Perl...

Código:

...
my $sth = $dbi->prepare("SELECT * FROM empresas");
$sth->execute();
while (my $recordset = $sth->fetchrow_hashref())
{
    $html->param(ROWS => [$recorset]);
}
...

El problema es que cuando hago eso para obtener todos los resultados de la Base de Datos, solo el ultimo registro... algo así como si reescribiera el registro más antiguo y deja el más nuevo. Ejemplo: En mi base de Datos tengo 50 registros aprox. y solo muestra el ultimo, el numero 50. Por lo mismo, he leido mucho respecto al tema de HTML::Template y llegue a la conclusion que lo unico que puedo hacer es:

1. Obtener un HASH con todos los registros desde la Base de Datos con alguna función o proceso, ¡PERO NO SE COMO!
2. Ver alguna forma de tomar un HASH y luego unirlo con los que siguen para que se cree un HASH con todos los registros de la DB. ¡PERO NO SE COMO!

Nesesito ayuda urgente... por favor.

Atentamente, DarkXNightmare.

[DarkXNightmare]

Bueno... ya no hace falta que me ayuden porque lo resolvi solo :P.
Explicare lo que hice para los amigos que tengan algún problema parecido:

Código:

 ...
my $sth = $dbi->prepare("SELECT * FROM empresas");
$sth->execute();
my @full_record = ();
while (my $recordset = $sth->fetchrow_hashref())
{
    push(@full_record, $recordset);
}
$html->param(ROWS => [@full_record]);
...

Ahora, todo funciona de maravilla :D.

Atentamente, DarkXNightmare ;D.