Using perl Syntax Highlighting
$sth = $dbh->prepare("SELECT * FROM Tabla1 WHERE campo1 = 'hola'");
$sth->execute();
print "<table>\n";
while( $resptr = $sth->fetchrow_hashref() )
{
print "<tr>";
print "<td>" . $resptr->{"campo1"};
print "<td>" . $resptr->{"campo2"};
print "<td>" . $resptr->{"campo3"};
print "<td>" . $resptr->{"campo4"};
print "<td>" . $resptr->{"campo5"};
print "\n";
}
print "</table>\n";
print "</body></html>\n";
$dbh->disconnect;
$sth->execute();
print "<table>\n";
while( $resptr = $sth->fetchrow_hashref() )
{
print "<tr>";
print "<td>" . $resptr->{"campo1"};
print "<td>" . $resptr->{"campo2"};
print "<td>" . $resptr->{"campo3"};
print "<td>" . $resptr->{"campo4"};
print "<td>" . $resptr->{"campo5"};
print "\n";
}
print "</table>\n";
print "</body></html>\n";
$dbh->disconnect;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
¿Se ve? Utilizo el fetchrow_hashref() para extraer toda la información.
Lo que quería saber es si hay una forma "mejor", más eficaz de hacer lo mismo. Si la hay les agradezco que me la digan. Muchas gracias.
¿Puede ser que haya una forma usando $cgi->param(ALGO => $HASH);?
