30/07/2002, 15:37
|
| | | Fecha de Ingreso: febrero-2002
Mensajes: 115
Antigüedad: 22 años, 3 meses Puntos: 1 | |
| Re: Ayuda con perl!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Hola
Ante todo gracias por responder,,,tengo un problema cuando quiero incluir html dentro de la pagina ,,,si creo una conexion a la DB antes de escribir el html ,,me tira internal server error ,,pero si lo hago antes me puede leer el html,,cosa logica ya que lo primero que procesa es el html y despues la conexion y la sentencia a la DB.
Aqui pongo al codigo...
#!/usr/bin/perl
use DBI;
my $db ="ecommerce";
my $usuario ="dix10";
my $clave ="mar.89an";
my $driver = "mysql";
my $host ="localhost";
my $dbh = DBI->connect("dbi:$driver:$db:$host:$usuario:$ clave") || die "\nError al a$
my $sth = $dbh->prepare("SELECT customers_id,customers_firstname FROM customers;");
$sth->execute();
print "Content-Type: text/html\n\n";
print "<html><head><title>Pedi do procesado</title></head>";
print "<body>Bienvenidos a esta prueba</body></html>";
while ( @tupla=$sth->fetchrow_array())
{
print "C>digo:$tupla[0] Nombre:$tupla[1]\n";
}
$sth->finish();
$dbh->disconnect || warn "\Fallo al desconectar.\nError: $DBI::errstr\n";
exit;
Saludos y gracias
|