UNIDAD 5: REGISTROS Y ARCHIVOS SECUENCIALES

TEMA PERL 12: GRAFICOS

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

Para manejar este elemento:

1.- Es un metodo sencillo, primero subir las imagenes ( de preferencia jpg) con un ftp normal a tusitio y al folder public_html.

2.- Usar el tag <img src> de html EN EL PROGRAMA perl

3.- agregar un campo de string llamado fotourl o foto o url a el registro en el archivo secuencial y cargarlo con la direccion internet donde quedo la imagen por ejemplo, por ejemplo http://programacionfacil.com/~tusitio/pato.jpg, MUCHO OJO este paso exije que se tengan que reconstruir todos los programas anteriores para incluir este nuevo campo y volver a crear los archivos de ejemplos.

prog28.pl

#! /usr/bin/perl -w
# usando modulo o libreria CGI
use CGI;
# 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('CLAVEBUSCAR','0', 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')) {
# 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>";
# abriendo archivo
open(ARCHIVO, "DATOS.DAT") || die "No se pudo abrir archivo";
while(!eof(ARCHIVO)){
# leyendo los campos
$clave=<ARCHIVO>;
$nombre=<ARCHIVO>;
$edad=<ARCHIVO>;
$foto=<ARCHIVO>;
if ( $q->param('CLAVEBUSCAR') == $clave) {
print "<TR><TD>"."$clave"."</TD><TD>"."$nombre"."</TD><TD>"."$edad"."</TD></TR>";
print "</TABLE>";
print "<img src= $foto>";
};};
close(ARCHIVO);
};

corrida:

image271.jpg

TAREAS PROGRAMACION PERL :

CONSTRUIR UN SISTEMA PERL COMPLETO QUE TENGA TODOS LOS PROCESOS VISTOS, PUEDEN SELECCIONAR, REFACCIONARIAS, JOYERIAS, VIDEOS, ETC.

Politica de Privacidad