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

TAREAS PROGRAMACION PERL :

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