UNIDAD 7: INTRODUCION A LAS BASES DE DATOS

TEMA PERL 9: BUSQUEDA

En este TEMA PERL se analiza la busqueda de un registro o renglon determinado en este proceso el usuario del programa quiere que se despliegue un y solo un registro de informacion proporcionando un dato de busqueda generalmente la clave del registro.

La solucion es sencilla, solo usar otra vez la instruccion select, con el siguiente formato:

SELECT [ *, all, campos] FROM TABLA WHERE clave=claveabuscar

les recuerdo que deben buscar y estudiar un buen tutorial de sql.

Codigo prog42.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 BUSCAR: ";
print $q->textfield('CLAVE','', 5);
# creando un submit button
print $q->submit('BUSCAR');
# cerrando la forma
print $q->endform();
# cerrando html
print $q->end_html;
if ( $q->param('BUSCAR')) {
$clave = $q->param('CLAVE');
# empezando una tabla html
print "<HTML><TABLE Border=10 CellPadding=5><TR>";
# construyendo los encabezados de la tabla
print "<th bgcolor=Green>CLAVE</th><th bgcolor=White>NOMBRE</th><th bgcolor=Red>EDAD</th></TR>";
# creando enlace o coneccion dbh=>database handle
my $dbh = DBI->connect('DBI:mysql:mibase:localhost','USUARIO','PASSWORD')|| die "ERROR CONECCION : $DBI::errstr";
# preparando el query sql
# sth=>statement handle convencion mysql tambien
$sth = $dbh->prepare("SELECT * FROM mitabla WHERE clave =? ");
$sth->execute($clave);
# ciclo de lectura de todos los renglones de la tabla aunque sea un solo renglon
while ( my ($clave, $nombre, $edad, $estatura) = $sth->fetchrow_array() ) {
print "<TR><TD>"."$clave"."</TD><TD>"."$nombre"."</TD><TD>"."$edad"."</TD><TD>"."$estatura"."</TD></TR>";
};
# cerrando tabla, instruccion y coneccion
print "</TABLE>";
$sth->finish;
$dbh->disconnect();
print $q->hr();
};

Corrida:

image284.jpg

nota: no hay nada nuevo es una combinacion de los dos programas anteriores con las mismas notas solo se usa un input text para pedir la clave aunque se puede usar cualquier campo para buscar.

TAREAS PROGRAMACION PERL :

1.- hacer programas de busquedas para las bases y tablas que tengan

Politica de Privacidad