Quisiera hacer una consulta acerca de que funcion cumple cada parte de este codigo, por q lo tengo, funciona, pero necesito saber para que funciona cada parte. Por ejemplo:
"param(ROWS=>" ----
$dbh->selectall_arrayref--------
{ Slice => {} }
Código:
$t->param(ROWS => $dbh->selectall_arrayref('SELECT * FROM opiniones', { Slice => {} }));
Tambien el que tenga una variante para este codigo acepto todo.
Lo que hago con esto es lo siguiente
Código:
my $cgi = CGI->new;
$dbh = DBI->connect($connectionInfo,$userid,$passwd) or die print "No hay conexion con la base<br>";
my $t = HTML::Template->new(filename => 'db.tmpl');
$t->param(ROWS => $dbh->selectall_arrayref('SELECT * FROM opiniones', { Slice => {} }));
$dbh->disconnect;
print $cgi->header;
print $t->output;
Es un Template con DBI para listar los datos de las tablas. El TMPL se los dejo por si lo quieren observar.
Código:
<table align="center" style="border:solid 4px #FF0000;" bgcolor="#009966" border="0">
<tr>
<td align="center"><b>NOMBRE</b></td>
<td align="center"><b>MAIL</b></td>
<td align="center"><b>DIRECCION</b></td>
<td align="center"><b>OPINION</b></td>
</tr>
<TMPL_LOOP ROWS>
<tr>
<td align="center"><TMPL_VAR NAME=nombre></td>
<td align="center"><TMPL_VAR NAME=mail></td>
<td align="center"><TMPL_VAR NAME=direccion></td>
<td align="center"><TMPL_VAR NAME=opinion></td>
</tr>
</TMPL_LOOP>
Gracias de antemano