GRAFICOS PERL

UNIDAD 7: INTRODUCION A LAS BASES DE DATOS

TEMA PERL 14: GRAFICOS

Campos de graficos o de imagenes, se han convertido en elementos importantes de cualquier base de datos.

Para manejar este elemento con ado-asp.net existen dos maneras:

1.- Agregar un campo BLOB a la tabla en mysql y usar instrucciones especializadas en imagenes tanto para subirlas como para desplegar la imagen.

Este metodo provoca que la base de datos crezca mucho recordar que una imagen aun de tipo jpg ocupa mucho espacio.

2.- El segundo metodo es mas sencillo, primero subir las imagenes ( de preferencia jpg) con un ftp normal a tusitio y despues usar el tag <img src> de html y ademas agregar un campo de texto llamado fotourl o foto a la tabla en mysql y grabar la direccion http de la imagen en este campo, por ejemplo http://programacionfacil.com/tusitio/pato.jpg

Despues solo cargar este tag img src en la pagina que se construira que no es otra cosa que el programa de busqueda con el despliegue del campo extra, como lo muestra el programa ejemplo.

Prog47.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, $foto) = $sth->fetchrow_array() ) {

print "<TR><TD>"."$clave"."</TD><TD>"."$nombre"."</TD><TD>"."$edad"."</TD><TD>"."$estatura"."</TD></TR>";

};

# cerrando tabla y desplegando foto

print "</TABLE>";

print "<img src=$foto>";

# cerrando todo

$sth->finish;

$dbh->disconnect();

print $q->hr();

};

corrida: prog45.cpp

PROYECTO CONSTRUIR UN SISTEMA PERL COMPLETO INTEGRADO CON TODAS LAS OPERACIONES USANDO AL MENOS DOS TABLAS.

tan tan el curso se acabo y esten pendiente de los proximos de perl, perlscript, javascript, jscript, php, phyton, xml, apml, net, csharp, et al