Foros del Web » Programación para mayores de 30 ;) » Programación General »

Leanlo Por favor y ayudenme es PERL HTML ACCESS

Estas en el tema de Leanlo Por favor y ayudenme es PERL HTML ACCESS en el foro de Programación General en Foros del Web. Me llamo Darwin Marcelo y estoy en Colombia, tengo 14 años y estoy construyendo una pequeña pagina web y quiero crearle una seccion donde los ...
  #1 (permalink)  
Antiguo 04/06/2002, 23:31
 
Fecha de Ingreso: junio-2002
Mensajes: 4
Antigüedad: 21 años, 11 meses
Puntos: 0
Leanlo Por favor y ayudenme es PERL HTML ACCESS

Me llamo Darwin Marcelo y estoy en Colombia, tengo 14 años y estoy construyendo una pequeña pagina web y quiero crearle una seccion donde los usuarios se puedan inscribir y leyendo un manual decia que con perl se podia hacer esto entonces estoy pues aprendiendo perl pero no he podido lograr que atraves de un formulario en la pagina puedan ingresar los datos a una base de datos (Acess), hice el programita en perl y el lo hace si ejecuto el programa por DOS ya que tengo Windows, pero si llamo el programa desde el formulario no lo hace, el favor que les pido es el siguiente, que le falta a el programa en perl, no se si es lo del POST o algo asi, es que aun no he entendido muy bien esta parte, abajo coloco el codigo del programa en perl, este funciona atraves de DOS y el formulario que es muy sencillo son solo como 4 campos a llenar, algunas personas me han dicho algo sobre Apache pero no estoy muy seguro y pues no he buscado. Es que en realidad no se si debo colocarle otra instruccion al programita en perl, ya en mi equipo he colocado lo del ODBC...

Gracias por su colaboración.

Darwin Marcelo

---------------------------------------

use Win32::ODBC;
$base=new Win32::ODBC("DSN=BibVir");

print "Nombre : ";
chop($Nombre=<stdin>);
print "D.I. : ";
chop($DocIde=<stdin>);
print "Colegio : ";
chop($Colegio=<stdin>);
print "Codigo : ";
chop($Codigo=<stdin>);

print "Confirme su Codigo : ";
chop($CodConf=<stdin>);

if ($Codigo eq $CodConf)
{
$insercion="insert into Usuarios values ('$Nombre','$DocIde','$Colegio','$Codigo')";
$base->Sql($insercion);

open (salida, "Inscrito.html");
print salida "<html><head><title>Inscrit o</title></head>";
print salida "<body>Estas Inscrito</body></html>";
close (salida);
}

else { print "El Codigo es Diferente"; }

$base->Close();
  #2 (permalink)  
Antiguo 05/06/2002, 12:41
Avatar de DanielRey
Usuario no validado
 
Fecha de Ingreso: enero-2001
Ubicación: Mendoza
Mensajes: 630
Antigüedad: 23 años, 3 meses
Puntos: 1
Re: Leanlo Por favor y ayudenme es PERL HTML ACCESS

Hola Darwin :)

Todo programa perl que vaya a ser utilizado como CGI debe invariantemente llevar esta instrucción antes del primer print:
print "Content-type: text/html\n\n";
para que el explorador lo entienda.

Si además el servidor web es linux o unix, debes poner #!/bin/perl -w como primer línea para que sepa donde hallar el intérprete perl.

Además, la carpeta donde reside el archivo ".pl" debe tener permisos de ejecución.

Suerte ;)
  #3 (permalink)  
Antiguo 05/06/2002, 14:02
 
Fecha de Ingreso: junio-2002
Mensajes: 4
Antigüedad: 21 años, 11 meses
Puntos: 0
Re: Leanlo Por favor y ayudenme es PERL HTML ACCESS

Epa viejo pero listo coloco eso y lo de la carpeta esa, mas o menos se por donde, pero dejo el resto como esta, por que el chop es para digitarlos y entrarlos por DOS pero como hago para que el tome esos datos de la pagina web. en alguna parte lei que depronto se hacia asi. no se... ayudeme, a y que quiere decir print "Content-type: text/html\n\n"; ...

----- El Codigo -----

print "Content-type: text/html\n\n";
use Win32::ODBC;
$base=new Win32::ODBC("DSN=BibVir");

$Nombre = $base->param ('Nombre');
$DocIde = $base->param ('DocIde');
$Colegio = $base->param ('Colegio');
$Codigo = $base->param ('Codigo');

if ($Codigo eq $Codigo)
{
$insercion="insert into Usuarios values ('$Nombre','$DocIde','$Colegio','$Codigo')";
$base->Sql($insercion);
}

else
{
print "El Codigo es Diferente";
}

$base->Close(); :) :) :)
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 21:20.