EJERCICIO:guarda_pedido.pl. |
En este ejercicio lo que hay que hacer es un CGI que inserte los datos que se le pasan como parametros en la tabla de pedidos. Hay que tener en cuenta que las funciones de captura de parámetros, escritura de cabecera HTML y escritura de cola HTML, ya se realizan en el esqueleto del CGI. Sólo se tiene que realizar la conexión con la base de datos, insertar los datos en la tabla de pedidos, cerrar la conexión y mostrar los mensajes necesarios, tanto como si hay un error, como si no lo hay, teniendo en cuenta que estamos en un CGI y, por lo tanto, tenemos que escribir setencias HTML . El esqueleto del script es el siguiente:
#!c:\perl\bin\perl.exe #Usamos las librerias de acceso a BD use DBI; my $base_datos="ce"; #Nombre de las base de datos my $tabla_pedidos="pedidos"; #Nombre de la tabla de pedidos my $usuario="root"; #Usuario de la BD my $clave="richal"; #Password de la BD my $driver="mysql"; #Utilizamos el driver de mysql my $id; #Variable donde guardaremos el id del articulo pedido my $num_factura; #Variable donde guardaremos la factura del pedido my $nombre; #Variable donde guardaremos el nombre del cliente my $email; #Variable donde guardaremos el email del cliente my $direccion; #Variable donde guardaremos la direccion del cliente my $telefono; #Variable donde guardaremos el telefono del cliente #Cogemos los parametros que se le pasan al CGI ($num_factura, $id, $nombre, $email, $direccion, $telefono) coge_parametros(); #Creamos la sentencia SQL para insertar my $SQL_inserta="insert $tabla_pedidos values ($num_factura, $id, '$nombre', '$email', '$direccion', '$telefono');"; #Escribimos la cabecera de la pagina HTML print "Content-type: text/html\n\n"; escribe_inicio_html(); #Escrimos los parametros pasados (BORRAR) print ("\n<h3>Num_factura=$num_factura Id=$id Nombre=$nombre E-Mail=$email Direccion=$direccion Telefono=$telefono<h3><br>\n"); #Conectamos con la BD, miramos si hay algun error(HACER) #Insertamos los datos en la tabla, miramos si hay algun error(HACER) #Nos desconectamos de la BD. (HACER) #Escribimos la cola de la pagina HTML escribe_final_html(); #Terminamos exit; #-------------------------------------------------------------------- #-------------------------------------------------------------------- #----------------------------FUNCIONES------------------------------- #-------------------------------------------------------------------- #-------------------------------------------------------------------- #En ests funcion cogemos los parametros que son necesarios para el #CGI. sub coge_parametros() { #Determinamos el tipo de metodo usado para pasar los argumentos $method=$ENV{"REQUEST_METHOD"}; if ($method eq "GET") { #Si el metodo es GET los argumentos vienen en $ENV{"QUERY_STYRNG"} $argumento=$ENV{"QUERY_STRING"}; } else { #Si el metodo es POST los argumentos vienen en la entrada estandar $argumento=<STDIN>; } # Obtengo las variables foreach (split(/&/,$argumento)) { ($variable,$valor) = split(/=/, $_); $valor=~tr/+/ /; $valor=~s/%([0-9|A-F]{2})/pack(C,hex($1))/eg; $datos{$variable}=$valor; } $num_factura=$datos{NUM_FACTURA}; $id=$datos{ID}; $nombre=$datos{NOMBRE}; $email=$datos{EMAIL}; $direccion=$datos{DIRECCION}; $telefono=$datos{TELEFONO}; } #-------------------------------------------------------------------- #En esta funcion escribimos el principio de la pagina HTML sub escribe_inicio_html() { print <<inicio_HTML; <html> <HEAD> <TITLE>Inserción de pedidos (CGI)</TITLE> </HEAD> <BODY bgcolor=#FFFFFF> <TABLE border=0 cellpadding=0 cellspacing=0 width=100%> <TD valign=middle width="100%" bgcolor="#008caa"> <font color="#DDDDDD" face="sans-serif"> <strong> <h1 align=center style='text-align:center'>INSERTAR PEDIDOS (CGI)</h1> </strong> </TD> </TABLE> inicio_HTML } #-------------------------------------------------------------------- #En esta funcion escribimos el fin de la pagina HTML sub escribe_final_html() { print <<fin_HTML; </BODY> </HTML> fin_HTML } #--------------------------------------------------------------------
El esqueleto del ejemplo anterior está aquí.
Nota: Este ejemplo es muy parecido al que vimos en apartado de Sentencias en DBI, y al de insertar un artículo . Pero hay que tener en cuenta que estamos trabajando con un CGI, y que los valores a insertar los tenemos guardados en $num_factura, $id, $nombre, $email, $direccion y $telefono.
2000 Francisco Javier García Castellano. fjgc@decsai.ugr.es |