BUSQUEDA BASES DE DATOS PERL

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:

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