GRAFICAS ARCHIVO DISCO PERL

UNIDAD 6 :REGISTROS Y ARCHIVOS DIRECTOS

TEMA PERL 9: GRAFICAS

Campos de graficas 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 CPP

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.

Y los jpg's se ponen en public_html.

Prog 37.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','', 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";

# posicionando en registro deseado

$claveb = $q->param('CLAVEBUSCAR');

seek(ARCHIVO, $claveb*89, 0);

# leyendo registro

read(ARCHIVO, $temporal, 89);

# desempacandolo

($clave, $nombre, $edad, $bandera, $foto) = unpack("I A30 I A1 A50", $temporal);

if($bandera eq "A")

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

print "</TABLE>";

print "<img src= $foto>";

};

close(ARCHIVO);

};

corrida:

TAREAS PROGRAMACION PERL :

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