29/07/2002, 19:21
|
| | | Fecha de Ingreso: febrero-2002
Mensajes: 115
Antigüedad: 23 años Puntos: 1 | |
| html y perl (ayudaaaa!|)
HOla
Yo estuve preguntando antes,, tambien por este tema,,es que tengo muchos quilombos al momento pasar lo que hago con perl a html...
Abajo pongo un script que,,por ahora no muestra la consulta en la tabla..pero me tira internalserver error..sin embargo si yo solo ejecuto la parte que tiene que ejecutar el html,, solo anda perfecto,,
Aca pongo al codigo
#!/usr/bin/perl
use DBI;
require 'connect.inc';
$dbh = DBI->connect("dbi:$driver:$db:$host:$usuario:$ clave") || die "\nNo puedo
conectar con db $db: $DBI::errstr\n";
print "\nSe ha conectado con la BD $db y el driver $driver\n";
$sth = $dbh->prepare("SELECT * FROM products;") || die "\nNo se puede
consultar a la DB $db\n";
$sth->execute() || die "\nNo puedo realizar a consulta\n";
while (@prueba = $sth->fetchrow_array())
{
print "$prueba[0] $tupla[1]";
}
open HTML, "/var/www/html/macused/consulta.html" || die "No se pudo abrir el archivo!$
print "Content-type: text/html\n\n";
while (<HTML>) { print };
close GIF;
Lo mismo me pasa cuando quiero poner html en la pagina..no simpre lo toma..cuando esta al principio de la pagina anda barbaro..pero si lo pongo en otro lugar no me funciona..
Saludos y gracias |