Resulta que quiero hacer una página dinámica con Perl y estoy haciendo pruebas de conectividad con la base de datos. Para ello he diseñado el típico script "Hola Mundo" y lo he guardado en el directorio que tengo asignado para ejecutar mis scripts en Apache-perl.
Mi problema es el siguiente (os muestro el código de mi script):
- Código: Seleccionar todo
#! /usr/bin/perl -w
use DBI;
print "Content-type: text/html \n\n";
print "<html><head><title>Resultados</title></head><body>";
$dbh = DBI->connect("dbi:Pg:database=db_proyecto");
$sth = $dbh->prepare('SELECT * FROM usuarios');
$sth->execute();
while ( @row = $sth->fetchrow_array )
{
print "<b>$row[0]\t$row[1]</b>";
}
$sth->finish();
$dbh->disconnect;
print "</body></html>";
exit (1);
Como podeis ver se trata de una consulta muy sencilla pero al ejecutarlo desde el navegador me muestra la página en blanco. Reviso los log del servidor Apache pero no me muestra ningún error de ejecucón. Si me pudieseis echar un cable os lo agradecería porque estoy algo perdido la verdad. Gracias anticipadas
