GRAFICOS PERL

Todo sobre Apple, Mac e Iphone Noticias sobre apple,mac, osx, iphone,ipad,apple watch, juegos para mac y appletv

 

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 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 https://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 CGIuse CGI;use DBI;# creando el OBJETO de tipo CGI$q = new CGI;# mandando servidor los encabezados de la pagina htmlprint $q->header;print $q->start_html();# creando una form o ventanaprint $q->startform();print "CLAVE A BUSCAR: ";print $q->textfield('CLAVE','', 5);# creando un submit buttonprint $q->submit('BUSCAR');# cerrando la formaprint $q->endform();# cerrando htmlprint $q->end_html;if ( $q->param('BUSCAR')) {$clave = $q->param('CLAVE');# empezando una tabla htmlprint "";# construyendo los encabezados de la tablaprint "CLAVENOMBREEDAD";# creando enlace o coneccion dbh=>database handlemy $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 renglonwhile ( my ($clave, $nombre, $edad, $estatura, $foto) = $sth->fetchrow_array() ) {print ""."$clave".""."$nombre".""."$edad".""."$estatura"."";};# cerrando tabla y desplegando fotoprint "";print "";# cerrando todo$sth->finish;$dbh->disconnect();print $q->hr();};

corrida: prog45.cpp Verso y Prosa

image1400.jpg

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

MÁS INFORMACIÓN

El contenido original se encuentra en https://programacionfacil.com/perl/graficos/
Todos los derechos reservados para el autor del contenido original (en el enlace de la linea superior)
Si crees que alguno de los contenidos (texto, imagenes o multimedia) en esta página infringe tus derechos relativos a propiedad intelectual, marcas registradas o cualquier otro de tus derechos, por favor ponte en contacto con nosotros en el mail bitelchux@yahoo.es y retiraremos este contenido inmediatamente

Top 20