UNIDAD 5: REGISTROS Y ARCHIVOS SECUENCIALES
TEMA PERL 7: 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.
Prog23.pl
#! /usr/bin/perl -w# usando modulo o libreria CGIuse CGI;# 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('CLAVEBUSCAR','0', 5);# creando un submit buttonprint $q->submit('BUSCAR');# cerrando la formaprint $q->endform();# cerrando htmlprint $q->end_html;if ( $q->param('BUSCAR')) {# empezando una tabla htmlprint "";# construyendo los encabezados de la tablaprint "CLAVENOMBREEDAD";# abriendo archivoopen(ARCHIVO, "DATOS.DAT") || die "No se pudo abrir archivo";while(!eof(ARCHIVO)){# leyendo los campos$clave=;$nombre=;$edad=;if ( $q->param('CLAVEBUSCAR') == $clave) {print ""."$clave".""."$nombre".""."$edad"."";};};print "";close(ARCHIVO);};corrida:
Recordar que la caracteristica principal de un archivo secuencial, es que no es posible acceder o accesar a un registro o renglon especifico o determinado sino que se debera recorrer todos los n-1 renglones anteriores.
Esta situacion se da porque al construir un registro cualquiera con una monton de campos strings a la hora de almacenar dichos registros, estos registros tendran tamanos diferentes, esta es la razon principal por la cual al buscar un registro especifico se tiene que recorrer y validar todos los registros anteriores.
En el programa ejemplo se esta usando un ciclo while(!eof(ARCHIVO)) para recorrer todos los registros del archivo (eof=end of file), por supuesto que si se tiene un archivo con 5000 registro y el buscado es el 4500 al menos se se tendra que recorrer todos los 4499 registros anteriores.
TAREAS PROGRAMACION PERL MYSQL
Construirles programas de busquedas a los archivos ya construidos.
BUSQUEDA ARCHIVOS PERL
En este TEMA PERL se analiza la busqueda de un registro o renglon determinado. TEMA PERL 7: BUSQUEDA TEMA PERL 7: BUSQUEDA UNIDAD 5: REGISTROS Y ARCHIVOS SECUE
adsl
es
https://adsltodo.es/static/images/adsl-busqueda-archivos-perl-1824-0.jpg
2024-11-21
El contenido original se encuentra en https://programacionfacil.com/perl/busqueda_archivos/
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 [email protected] y retiraremos este contenido inmediatamente