24/07/2002, 07:40
| |||
| |||
| Ayuda con perl!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Hola alguien mepuede dar una mano. Tengo una pagina con un formulario de registracion de usuarios, en el form llama a un archivo.pl que toma la informacion del formulario la separa y la ingresa a la DB...el tema es que no se generar una respuesta (del lado del cliente) en html...algo asi como tu registracion fue realizada con exito o que lo lleve aun panel de control.... Alguien me podriadar una idea... Saludos |
|
25/07/2002, 06:35
| ||||
| ||||
| Re: Ayuda con perl!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Esa opcion esta disponible en el script? La verdad es que deberia. Puede que no te de la respuesta debido a algun error del propio CGI. Te recomiendo que lo depures. Tambien se pude deber a que alguna variable no la hallas configurado bien, o que noi tenga ninguna respueta HTML preconfigurada (no lo creo) De todas maneras, me gustaria hechar un vistazo al codigo del CGI para decirte con mas exactitusd (subelo a tu pagina web y renombralo a extesion .txt y postea la direccion) Salu2 <center><EMBED src="http://www.programasweb.com/flash/banner_468_68.swf" WIDTH=250 HEIGHT=50 TYPE="application/x-shockwave-flash" </EMBED></center> |
|
25/07/2002, 08:06
| |||
| |||
| Re: Ayuda con perl!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Hola El script lo hice yo y como soy nuevo en esto no se como dar una respuesta en html, si yo manejoel script de consola anda perfecto pero tengo que hacer que pueda funcionar en una pagina web ...lei en un lugar algo de poner context-type/html o algo asi ..pero no me funciona ,,si lo corro via web me dice internal server error. Saludos PD: Dentro de un rato posteo el script |
|
25/07/2002, 12:47
| |||
| |||
| Re: Ayuda con perl!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! para internet siempre que devolves algo tenes que decir que es ese algo antes... la solucion mas facil es, cuando hay que mandar un mensaje escribir:
Código:
si te manejas con bases de datos y cosas asi, supongo que no te sera dificil abrir un archivo.print "Content-Type: text/html\n\n"; print "<html><head><title>Pedido procesado</title></head><body>Pedido procesado con exito!!</body></html>"; con un simple:
Código:
lo cual hace que la visual se mas interesante.open HTML, "mihtmlderespuesta.html" || die "No se pudo abrir el archivo!!!";
print "Content-type: text/html\n\n";
while (<HTML>) { print };
close GIF;
Dos puntos interesantes para tener en claro: 1) Cuando estamos enviando un encabezado HTTP (es el caso de Content-Type), se imprime uno por linea y se deja una linea vacia para indicar que lo que sigue es el contenido en si (por es los dos "\n") 2) Esto sirve para cualquier tipo de datos siempre que sepamos el tipo MIME del archivo correspondiente!!!! por ejemplo:
Código:
open GIF, "miimagen.gif" || die "No se pudo abrir el archivo!!!";
print "Content-type: image/gif\n\n";
while (<GIF>) { print }
close GIF;
|
|
25/07/2002, 14:18
| |||
| |||
| Re: Ayuda con perl!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! La explicación anterior te ayuda mucho también puedes poner a que el .pl se redireccione a un html que tengas de respuesta con la siguiente línea:
Código:
<img src="http://www.fiestacom.com/edit.gif" alt="Edit Editor"> <font face="Symbol">"<font size="7">S[/CODE][/CODE]<font size="6" face="Tahoma">J[/CODE] print "Status: 302 Found\nLocation: url\n" . "URI: $url\nContent-type: text/html\n\n";; |
|
30/07/2002, 15:37
| |||
| |||
| 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 |
