UNIDAD 7: INTRODUCION A LAS BASES DE DATOS

TEMA PERL 12: BAJA O ELIMINACION

Eliminacion es otro proceso simple y comun con las bases de datos el modelo MYSQL que estamos usando hace este tipo de operaciones muy faciles:

La instruccion sql a usar es: DELETE FROM TABLA WHERE CONDICION y que pasa con el tutorial de sql!!!

Prog45.pl

#! /usr/bin/perl -w
# usando modulo o libreria CGI
use CGI;
use DBI;
# creando el OBJETO de tipo CGI
$q = new CGI;
# mandando servidor los encabezados de la pagina html
print $q->header;
print $q->start_html();
# creando una form o ventana
print $q->startform();
print "CLAVE A ELIMINAR: ";
print $q->textfield('CLAVE','', 5);
# creando un submit button
print $q->submit('ELIMINAR');
# cerrando la forma
print $q->endform();
# cerrando html
print $q->end_html;
if ( $q->param('ELIMINAR')) {
$clave = $q->param('CLAVE');
# creando enlace o coneccion dbh=>database handle
my $dbh = DBI->connect('DBI:mysql:mibase:localhost','USUARIO','PASWWORD')|| die "ERROR CONECCION : $DBI::errstr";
# preparando el query sql
# sth=>statement handle convencion mysql tambien
$sth = $dbh->prepare("DELETE FROM mitabla WHERE clave =? ");
$sth->execute($clave);
# cerrando instruccion y coneccion
$sth->finish;
$dbh->disconnect();
print "REGISTRO ELIMINADO";
};

corrida prog45.pl

image287.jpg

TAREAS PROGRAMACION PERL :

1.- construir este proceso para las tablas y bases de datos que tengan construidas.

Politica de Privacidad